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• asmdef.h 

• Assembler Hacks 

• Jeffrey Mogul • 15 May 1981 

• after code written by Luis Trabb-Pardo 
•/ 

/• branch to a label •/ 
^define branch(a) asm (" .text;");\ 
asm(" jmp a") 

/* push a word (short) •/ 
^define wpush(a) asm (" .text");\ 
asm(" movw a,sp9-") 

/• push a register •/ 
^define rpush(a) asm (* .text");\ 
asm( " movl a, spa-") 

/• pop a register •/ 
^define rpop(a) asm (" .text");\ 
asm(" movl sp@+,a") 

/• define an entry in a vector of longs (e.g., exception vector) • 
^define excv(a) asm( " .text")\ 
asm( " .long a") 

/• 

• exclink - used to push a word describing an exception, 

• then jump to ".enter". The word contains two bytes, 

• which form a two-character message. 

^define excl ink( n , a . b) asm(" .text");\ 

asm("n: movw 0' a*256. + 'b,sp8- ,, );\ 
asm( " jra .enter") 

/• 

• exclinkn - like exclink but pushes a numeric code 
•/ 

^define excl inkn(n , x) asm(" .text");\ 
asm("n: movw #'x,sp8-");\ 
asm(" jra .enter") 

/* return from interrupt/exception •/ 
^define endsrv asm( " rte") 

/• label a point for assembler jumps •/ 
^define label(a) asm("a:") 

/* label a point globally for assembler jumps •/ 
^define LabelGbl(a) asm(" .globl a"); asm ("a:"); 

/* set processor interrupt level •/ 
^define setINTLV(a)\ 
{extern unsigned short sr; sr= (unsigned short)(0x2000+(a<<8)) ;} 

/• Register save area allocation */ 
^define _reg_dO 0 
^define _reg_aO 8 
^define _reg_ss 15 
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#def ine _reg_us 
#def ine _reg_sr 
#def ine _reg_pc 
#def ine ~reg~MX 
asm(" -i d1sp_ijs«64. 



): 



16 
17 
18 
18 



Auxiliary functions to save and restore things •/ 



sp0(72.)... 


PC 


sp0(7O.). . • 


SR 


sp0(68.)... 


0 


sp0(64.)... 


US 


sp0(62.). . . 


SS 


sp0(58.). . . 


A6 


sp0(32.). . • 


AO 


sp@(28.)... 


D7 




DO 



/* The Monitor sees the Register Save Area as 19 long parameters 
moni tor( r_pc , r_sr, r_us, r_ss, 

r_a6 , r_a5, r_a4, r~a3. r_a2. r_al , r_aO , 
r_d7, r_d6, r_d5, r_d4, r_d3, r_d2 , r_dl, r_dO) 

•/ 

/• Storing the exception cause after an exception: •/ 
^'define ExcCause(a) asm(" .text");\ 
asm(" movw #a.,sp0- N );\ 

/• Saving registers after an exception: */ 
^define saveregs asm(" .text M );\ 

asm( " subql 

asm( " moveml 

asm( " movl 

asm( " movl 



#4. ,sp");\ 

*/FFFF,sp@-");\ 

usp,aO") ;\ 

aO ,sp0(__disp_us)") 



/* Restoring registers after a call to the monitor: •/ 



^define restregs 

asm(" movl 
asm( " movl 
asm( " moveml 
asm(" addql 



asm(" .texf);\ 
sp8(_disp_us) ,a0") ;\ 
aO ,usp") ;\ 
spG+.#/FFFF");\ 
*6.,sp") 



/• 



Save Access Address etc. after BusErr or AdrErr; the assumption 
is that 0 contains the address of the global data region, and 
the first two longs of global data store the top two longs from 
the exception stack frame. 



^define SAVEACCESS 
asm( N movl 
asm(" movl 
asm(" movl 
asm(" movl 
asm(" movl 



\ 

a0,4."); 
0.,aO w ); 
sp0+,aO0+"); 
sp0+, aO0") ; 
4.,a0"); 



/• temporarily store aO V\ 
/• get global base pointer ' 
/• pop first long V\ 
/* pop second long */\ 
/• restore aO •/ 



• Flush Access Address etc. after BusErr or AdrErr; we don't 

* need them and cannot rte until they are gone 
•/ , 

^define FLUSHACCESS asm(" addql #8.,sp"); /• pop two longs •/ 
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/• 

• Opcode definitions - 

• The monitor occasionally stuffs some opcodes into 

• memory. These are defined here. 
•/ 



^define OPC 2N0P 0x4E714E71 /• TWO nops •/ 

^define OP(fNOP_RTS 0x4E714E75 /• nop followed by an rts •/ 

^define OPC TRAP1 0x4E41 /• trap 1 •/ 

^define OP(T2UNl OxFFFFFFFF /• TWO "unimplemented llll"s 
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• buserr.h 

• definitions for structure showing details of Bus Error 

• or Address Error on MC68000 



Jeffrey Mogul 



15 June 1981 



struct BusErrlnfo { 

unsigned int :11; 

unsigned int Read:l; 

unsigned int Instril; 

unsigned int FuncCode:3; 

unsigned short AccAddrLo; 

unsigned short AccAddrHi; 

unsigned short InstrReg; 

}: 



/• padding •/ 

/• Read * 1. Write = 0; •/ 

/• FALSE if reference was a fetch •/ 

/• "Function Code •/ 

/• Access Address •/ 

/• Instruction Register •/ 



• values in FuncCode field 



^define BERRJJSERDATA 1 

^define BERR_USERPROG 2 

^define BERR_SUPEROATA 5 

^define BERR_SUPERPROG 6 

^define BERR INTACK 7 
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globram.h 



Jeffrey Mogul 15 May 1981 

created from code written by Luis Trabb-Pardo 

This defines a data structure that lives in RAM and is 
used by the ROM monitor for its own purposes. 

There are two ways of accessing these data; the most 
straightforward way is to say \140\140GlobPtr->xxx * • ; however, 
if a single routine makes more than 3 accesses a global datum 
(measured staticly), code size can be improved by first 
loading GlobPtr into a register — i.e., 
register GlobDes *gp * GlobPtr; 

/ 

nclude "sunmon.h" 



things whose size does not actually matter are made into 
ints; this removes the "extw; extl" sequences seen all over. 

/ 

typedef struct { 

union { /• MUST be first in Global Data •/ 

struct { /* how bus error info appears on stack •/ 

long os_ll; 
long os~12; 
} OnStack; 

struct BusErrlnfo Data; /• structured according to contents 
} BE; 

char linbuf[BUFSIZE+2]; /* data input buffer •/ 

char *lineptr; /• next "unseen" char in linbuf •/ 

int linesize; /• size of input line in linbuf •/ 

int recount; /• count of S-records loaded •/ 

int debounce; /" used in debounced Abort switch •/ 

short BreakVal; /• instruction replaced by Break trap •/ 

word *BreakAdx; /• address of current BPT •/ 

int BrklnPrg; /• flag: true if we are handling BPT •/ 

int RefrCnt; /• pseudo-clock counter */ 

long MemorySize; /• size of memory in bytes */ 

int. CurContext; /• current context register contents •/ 

char EndTransp; /• escape character for transparent mode 

int ConChan; /• Control channel (A_chan or B_chan) •/ 

int EchoOn; /• true if input should be echoed •/ 

int FrameBuffer; /* true if frame buffer is console •/ 

} GlobDes; 

^define GlobBase (*((GlobDes **)0)) /* set to point at base of 

• monitor global data 
•/ 



^define GlobPtr ((GlobDes •)STRTDATA) 
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• m68vectors. h 

• Defines addresses for MC68000 exception vectors 

• Addresses are of type "long •" 
• 

• Jeffrey Mogul Stanford University 22 April 1981 



#def ine 
#def ine 
^define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
0def ine 
0def ine 



EVEC 

EVEC' 

EVEC 

EVEC 

EVEC" 

EVEC" 

EVEC" 

EVEC* 

EVEC 

EVEC" 

EVEC' 

EVEC' 



RESETSSP 

RESETPC 

BUSERR 

ADDER R 

ILLINST 

DIVZERO 

CHK 

TRAPV 

PR IV 

TRACE 

LINE1010 

LINE1U1 



long 
long 
long 
long 
long 
long 
long 
long 
long 
long 
long 
long 



•)0x000) 
•)0x004) 
•)0x008) 
•)OxOOC) 
•)0x010) 
•)0x014) 
•)0x018) 
•)0x01C) 
•)0x020) 
•)0x024) 
*)0x028) 
•)0x02C) 



* vectors 0x30 - 0x5C are 



reserved to Motorola") 



#def ine 


EVEC 


SPURINT 


( ( long * 


»)0x060 


^define 


EVEC" 


'leveli 


((long * 


»)0x064 


#def ine 


EVEC' 


LEVEL2 


((long * 


•)0x068 


Idef ine 


EVEC" 


LEVEL3 


((long * 


•)0x06C 


#def ine 


EVEC" 


LEVEL4 


((long * 


»)0x070 


0def ine 


EVEC' 


LEVEL5 


((long « 


»)0x074 


#def ine 


EVEC" 


LEVEL6 


((long * 


')0x078 


/fdef ine 


EVEC" 


.LEVEL7 


(("ong * 


»)0x07C 


#def ine 


EVEC 


TRAPO 


((long * 


>)0x080 


#def ine 


EVEC" 


TRAP1 


((long * 


»)0x084 


#def ine 


EVEC" 


TRAP2 


((long * 


k )0x088 


#def ine 


EVEC" 


TRAP3 


((long « 


»)0x08C 


#def ine 


EVEC" 


TRAP4 


((long * 


*)0x090 


#def ine 


EVEC" 


TRAP5 


((long * 


')0x094 


#def ine 


EVEC" 


TRAP6 


((long * 


•)0x098 


#def ine 


EVEC" 


TRAP7 


((long * 


•)0x09C 


#def i ne 


EVEC" 


TRAP8 


((long ' 


>)0x0A0 


#def ine 


EVEC" 


TRAP9 


((long * 


»)0x0A4 


#def ine 


EVEC" 


"trapa 


((long ' 


»)0x0A8 


#def i ne 


EVEC* 


"trapb 


((long * 


')0x0AC 


#def ine 


EVEC" 


'trapc 


((long * 


»)Ox0B0 


#def ine 


EVEC TRAPD 


((long * 


»)0x0B4 


0def ine 


EVEC 


trape 


((long * 


*)0x0B8 


#def ine 


EVEC] 


JRAPF 


((long * 


>)0x0BC 



/• 



* vectors OxCO - OxFC are 
•/ 



reserved to Motorola' 



/• 

• vectors 0x100 - 0x3FC are User Interrupt Vectors 
V 

^define EVEC USERINT(v) ((long *)(0xl00 + ((v).«2))) 



^define EVECJ-ASTV'EC ((long *)(0x3FC)) 



m68vectors.h Mon Jul 20 23:37:01 1981 Page 2, line 64 

^define EVEC_AFTER ((long •)(0x40a)) 

#define NUM_EVECS 256 /• number of exception vectors •/ 
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^include "nec7201 . h" 

/• Address definitions foi 4 the nec7201 

^define A_chan 0 
#def ine B chan 4 



#define ContReg(ch) 
^define StatReg(ch) 
^define TxHldReg(ch) 
^define RxHldReg(ch) 



•(char^KOxeoOOO^+ch/^V chan) 
•(char*)(0x600002+ch/*«/~chan) 
•(char«)(0*600000+ch/»V chan) 
•(char*)(0x600000+ch/»v""chan) 



/• Read only •/ 
/• Write only •/ 
/• Read only •/ 



/• Programming the NEC PD7201 for the M6800U •/ 
/• Assumes External clock frequency 16 • baud rate •/ 

/• Setting a control register •/ 
^define NECset(ch . r , v) \ 

ContReg(ch)* (char)r;\ 

ContReg(ch) s (char)v 

/• Reset Tx Interrupt •/ 
^define UAtxres(ch)\ 

ContReg(ch)* ( char)NECtxres 

/* Reset External Latch •/ 
^define NECresxt( ch )\ 

ContReg(ch)= NECptres(O) 

/• WRITE REGISTER 1 */ 

/•^define NECINR1 (NECtxint| NECrxina) */ 

^define NECINR1 0 /• no interrupts •/ 

/* WRITE REGISTER 2 */ 

^define NECINR2 4 /* could also be zero, but remember clrb, 

/* WRITE REGISTER 3 •/ 

^define NECINR3 ( NECrxena| NECrx8bt|NECautoe) 
/• WRITE REGISTER 4 •/ 

^define NECINR4 (NECrxlsb | NEC16clk) 
/• WRITE REGISTER 5 •/ 

#def ine NECINR5 (NECtxrts|NECtxena|NECtx8bt|NECdtr) 

^define UAtxena(ch) NECset( ch . 5 , NECINR5) 

#def ine UAtxdis(ch) NECset(ch,5,(NECtxrts|NECtx8bt|NECdtr)) 

^define NECinseq char __NECIN []« { \ 

(char)NECchres , (char)NECchres,\ 

(char)2, (char)(NECINR2) , \ 

(char)4.(char)(NECINR4),\ 

(char)3,(char)(NECINR3),\ 

(char)5.(char)(NECINR5),\ 

( char) 1,( char) (NECINR1)\ 

} 

/• Expand NECinseq within scope reach of 
NECin expansion. 

A (char*) chadx must be provided 

•/ 

^define NECin(chadx) \ 

for (chadx=_NECIN__; chadx<&_JIECIN_[sizeof (__NECIN_J] ; ) {\ 
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ContReg(A)= # chadx;\ 
ContReg(B)* •( chadx++) ;\ 

} 

/• inltUART uses a (char*) chadx •/ 

^define initUART(chadx) \ 

TCSetGrp(TIMACl k , TMODuart , TFRQuart) ;\ 

TCSetGrp(TIMBClk .TMOOuart ,TFRQuart) ;\ 

TCArmCnt(TSCountA+TSCountB) ;\ 

NECin(chadx):\ 

TxHl dReg(B) s (charJ'XO'iX 

TxHldReg(A) = • \0 * 

/• A good approx. to freq is TFRQuart*k 

^define speedUART(ch , f req) \ 

TCSetGrp(TIM/**/ch/"/CU, TMODuart, freq);\ 
TCArmCnt(TSCount/*Vch) 

^define ReadUART(ch) RxHldReg(ch) 

//define Wri teUART(a, ch) TxHl dReg(ch )* a 

^define WriteBusy(a) \ 

(whi1e((char)(StatReg(A)&NECtxrdy)==0); TxHldReg(A)* a; 

#define UARTstat(ch) StatReg(ch) 
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pcmap.h 

Macros and definitions for 
Jeffrey Mogul 20 March 1981 



memory mapping 



8 July 1981 (jcm) — changed Multibus Memory map to cover ca. lmb 

7 May 1981 (jcm) — revised for PC board version 

6 Hay 1981 (jcm) added mapping for Multibus Memory space 

from code written by Luis Trabb-Pardo 



address space allocations 

'/ 

^define ADRSPC_RAM 0x0 

^define ADRSPC_PROM0 0x200000 

^define ADRSPC_PR0M1 0x400000 

^define ADRSPC UART 0x600000 

^define ADRSPC~TIMER 0x800000 

^define ADRSPC_PAGEMAP OxAOOOOO 

^define ADRSPC_SEGMAP OxCOOOOO 

^define ADRSPC CONTEXT OxEOOOOO 



^define ADRSPC SIZE 



0x200000 



/• Read/Write, segmented memory • 

/• ROM #0, boot space •/ 

/• ROM #1 •/ 

/• onboard UART •/ 

/* onboard Timer •/ 

/* base of page table •/ 

/• base of segment table •/ 

/* context register •/ 

/* size of each address space •/ 



/• 

• Memory is divided into 16 contexts; the current context is 

• defined by the context register. 
•/ 

/• 

• Context Register -- only 4 high order bits (of 16) count 
•/ 

^define CONTEXTREG ('(unsigned short *)ADRSPC_CONTEXT) 

#define SETCONTEXT(x) CONTEXTREG = ((x)<<12) 

/• 

• Surprise! to read the context register, look at the 

• high 4 bits of any segment map entry. (?) 



^define GETCONTEXT 
^define NUMCONTEXTS 



((•(unsigned short •)ADRSPC_SEGMAP) » 12) 
16 
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A memory address is 



struct { 



unsigned reserved:3; 
unsigned SegInContext:6; 
unsigned PageInSeg:4; 
unsigned BytelnPage : 11 ; 
} MemAddress; 



— not currently used, MBZ 

— segment within contex 

— page within segment 

— byte within page 



The segment number is computed as <context><SegInContext> , yielding 
a 10-bit segment table index. 



A segment table entry is 



struct { 



uns igned 
unsigned 
uns igned 
unsigned 
uns igned 
unsigned 
unsigned 

} 



CurContext :4; 
SegProt_User : 1 ; 
SegProt_Write:l; 
SegProt_Read:l; 
SegProt_Exec: 1; 
reserved : 2 ; 
PageNumHi : 6 ; 
SegTabEntry ; 



-- Current context (Read only) 

— allows User access 
-- allows Write access 

— allows Read access 

— allows Execute access 

— not currently used, MBZ 
-- high bits of Page number 



The virtual page number is computed as <PageNumHiXPageInSeg> , 
yielding a 10-bit page table index. 



A page table entry is 



struct { 



unsigned PageUsed:l; 
unsigned PageDirty:l; 
unsigned PageSpace:2; 
unsigned PageFrameNumber: 12 ; 
} PageTabEntry; 



— "Used" flag 

— "Dirty" bit 

— physical page space 

— physical page index 



The physical memory address is computed as <PageFrameNumberXByteInPage>, 
yielding a 23-bit byte address. 
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/• 

* Segment map constants/macros 
•/ 

^define SEGMAPBASE ADRSPC_SEGMAP /• base of segment map •/ 

^define CONTEXTSIZE 0x40 /• 64. segments per context •/ 

#define SEGMAPSIZE 0x400 /• 16*64 segments •/ 

/* return address of segment map entry #<seg> •/ 

#define SEGMAPAOR( seg) ((short •)(SEGMAPBASE«-((seg)<<15))) 

/• set segment table entry #<seg> to <entry> •/ 
^define SETSEGMAP( seg .entry ) •SEGMAPADR(seg) ■ (entry) 

/• get segment table entry #<seg> •/ 
^define GETSEGMAP(seg) ( *SEGMAPADR( seg) ) 

/* segment protection bits — can be set independently */ 
^define SEGPRO EXEC 0x100 
^define SEGPRO~READ 0x200 
^define SEGPRO~WRITE 0x400 
^define SEGPRO_USER 0x800 

*def i ne SEGPRO_ALL ( SEGPRO_EXEC | SEGPRO_READ | SEGPROJrfRITE | SEGPROJJSER) 

/• 

• Page map constants/macros 
•/ 

^define PAGEMAPBASE ADRSPC_PAGEMAP /• base of page map •/ 
^define PAGEMAPSIZE 0x400 /• 1024. pages total •/ 

^define PAGESIZE 0x800 /• 2048. bytes per page •/ 

/• return address of page map entry #<page> •/ 

^define PAGEMAPADR( page ) ((short •)(PAGEMAPBASE + ((page)«ll))) 

/• set page table entry #<page> to <entry> •/ 

^define SETPAGEMAP(page .entry) *PAGEMAPADR( page) * (entry) 

/• get page table entry #<page> •/ 

^define GETPAGEMAP( page) ( *PAGEMAPADR(page) ) 

/• page "address space modes" mutually exclusive •/ 

^define PGSPC_MEM 0x0000 /• on-board memory •/ 

^define PGSPCJIXM 0x1000 /• invalid page •/ 

^define PGSPC_MBMEM 0x2000 /• multibus memory •/ 

#define PGSPC_MBIO 0x3000 /• multibus I/O •/ 

/• 

• Initial mapping of memory: 
• 

• We need an initial mapping of memory that will suffice 

* to get the monitor started and allow memory to be sized; 

* we make virtual memory map directly onto physical memory 
•for all 16 contexts. We leave things in context 0. 

•/ 

^define INITMAPX 



.register i;\ 
register j;\ 

for (j » 0; j < NUMCONTEXTS; j++) {\ 
SETCONTEXT(j);\ 

for (i * 0; i < CONTEXTSIZE: 1++). {\ 
SETSEGMAP(i. ( i | SEGPRO_ALL ) ) ; \ 

}\ 
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SETCONTEXT(0);\ 

for (i « 0; i < PAGEMAPSIZE; {\ 
SETPAGEMAP(i.(1|PGSPC MEM));\ 



/• 

Boot State: 

In boot state (the state of the system after reset) the address 
OXXXXX reads and executes from address 2XXXXX 

writes onto address OXXXXX, 
in this way it is possible to initialize RAM just after reset. 
Also, all interrupts including normally non-maskable ones are 
disabled. 

Note that CLR instructions should not be used on RAM space in 
boot state; this is because the CLR instructions do a read cycle 
before writing. 

To exit boot state, perform a write operation into the 
PROMO address space. 

•/ 

^define EXITBOOT '(unsigned short •)ADRSPC_PROM0 « 1 
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/• 

* MULTIBUS MEMORY AND I/O MAPPING 
•/ 

/• 

* Multibus I/O mapping 

* By convention, MultiBus I/O is mapped at the top of the 

* mappable address space. 
•/ 

^define IOLOWPAGE 0x3E0 /• first MultiBus page •/ 

^define IOLOWADR OxlFOOOO /• IOLOWPAGE << 11 •/ 

^define NUMIOPAGES 0x020 /• number of MultiBus pages •/ 

/• 

* MultiBus(x) returns the mapped address for MultiBus address x 
•/ 

^define MultiBus(x) ( IOLOWADR+(x) ) 
/• 

* initlOMAP initializes the top pages of the map to conform to 

* the convention described above 
•/ 

^define initlOMAP \ 

o 

register i;\ 

for (i*0; i<NUMIOPAGES; i++)\ 

SETPAGEMAP{ ( i+IOLOWPAGE ) , ( i | PGSPC MBIO) ) ; \ 
> - 

/• 

* Multibus memory mapping 
• 

* By convention, MultiBus memory is mapped just below 

* Multibus I/O in the mappable address space. 
•/ 

^define MBMEMLOWPAGE 0x200 /• first MultiBus memory page •/ 
^define MBMEMLOWADR 0x100000 /• MBMEMLOWPAGE << 11 •/ 

#define NUMMBMEMPAGES OxleO /• number of MultiBus memory pages •/ 

/• 

* Mul tiBusMem( x) returns the mapped address for MultiBus memory address x 
•/ 

rfdefine Mul t iBusMem( x) (MBMEMLOWADR+(x) ) 
/• 

* initMBMEMMAP initializes the top pages of the map to conform to 

* the convention described above 
•/ 

^define initMBMEMMAP \ 
register i;\ 

for (i=0; i <NUMMBMEMPAGES ; 

SETPAGEMAP( ( i+MBMEMLOWPAGE ) , ( i | PGSPC_MBMEM) ) ; \ 

} 

*if NUMIOPAGES NUMMBMPAGES 
/• 

* Ioi tMul tiBusMap initializes the maps for both Multibus memory and 

* I/O; the loop-jamming of initMBMEMMAP and initlOMAP saves 
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* code in the ROM monitor. This works because NUMIOPAGES ■■ 

• NUMMBMEMPAGES. 
•/ 

^define InitMul tiBusMap \ 
{\ 

register 1;\ 

for (i=0: i<NUMIOPAGES; i++) {\ 

SETPAGEMAP( ( i+MBMEMLOWPAGE ) . ( i | PGSPC_MBMEM) ) ; \ 
SETPAGEMAP( ( i+IOLOWPAGE ) , ( i | PGSPC MBIO) ) ; \ 

}\ 

} 

#e1se 

/• do each initialization; cannot jam loops •/ 
^define InitMul tiBusMap \ 

ini tMBMEMMAP; \ 

initlOMAP; 

#endif 
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^include "amd9513.h" 



/• Timer addresses on the 



system •/ 



#def ine ADTimCom 
#def ine ADTimReg 



•(unsigned short*)0x800002 
•(unsigned short*)0x800000 



/• Input frequency is 4MHz •/ 
/• Chartnel Assignment is •/. 



/• for Commands •/ 
/• for Registers • 



^define 


TIMRefresh 


3 /• 


for refresh task •/ 


tfdef ine 


TSCountR 


TSCount3 




#def ine 


T I MAC Ik 


4 /• 


Ch.A clock •/ 


#def ine 


TSCountA 


TSCount4 




^define 


TIMBClk 


5 /• 


Ch.B clock •/ 


#6ef ine 


TSCountB 


TSCount5 




#def ine 


TIMInter 


2 /• 


Interrupt Clock, Level 6 •/ 


#def ine 


TSInter 


TSCount2 


^define 


TIMClock 


• 1 /• 


Counter Clock •/ 


#def ine 


TSClock 


TSCountl 





^define ResTIMER \ 

TCReset; /• Master Reset V\ 

TCLdCnt( TSA1 1 ) ; /• Reset All counters */\ 

TC16Bus /• Enter 16 bit Bus mode •/ 



/• Uart Timing: the timer functions in "MODE D"... •/ 

^define TMODuart (unsigned short )(TCMFal l+TCMNoGa+TCMFl+TCMDiSpG+\ 

TCMR1 dLd+TCMCntRp+TCMB i nCt+TCMDwnC t+TCMTCTog ) 
/* with a square wave of 16 * 9615.4Hz •/ 
^define TFRQuart 13 



/• Refresh Timing: also "MODE D" •/ 
^define TMODrefr TMODuart 

/* frequency: 500Hz •/ 
^define TFRQrefr 8000 



^define initREFR \ 

TCSetGrp(TIMRefresh,TMODrefr.TFRQrefr);\ 
TCArmCnt(TSCountR) 

/• Counter clock Timing: it counts at any of the available frequencies */ 
^define TMODcclk (unsigned short)(TCMFal 1+TCMNoGa+TCMDiSpG+V 

TCMR1 dLd+TCMCntRp+TCMBinCt+TCMUpCt+TCMOutLo) 

/• Setting up the counting clock: the parameter 'freq' must be 

1 to 5 to select Fl to F5 •/ 
^define TCSetClk(f req) \ 

TCLoOaPo(TSModeRg+TIMClock);\ 

TRLoad( TMODccl k+TCMF/**/f req) ;\ 

TCDisDP;\ 

TCLoDaPo(TSHoldRg+TIMClock) 
/• Reading the counting clock •/ 

^define TIMRdClk (TCSavCnt(TSAll ) .ADTimReg) 

/• Resetting the counting clock •/ 
^define TIMClkRs TCLdArCnt(TSClock) 
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/• 

• sunuart.h 

• Defines semi-hardware-independent constants/macros for 

• sun on-board UART. 
• 

• Jeffrey Mogul » 

• after "necuart.h" by Luis Trabb-Pardo 

^include "nec7201 .h" 

/* Address definitions for the nec7201 on the SUN board •/ 

/• Channel definitions •/ 

ifdef i ne A_chan 0 
#def ine B_chan 4 

redefine ContReg(ch) *(cihar*) (Ox600002+ch) 

^define StatReg(ch) •( char* ) ( Ox600002+ch) /• Read only •/ 

redefine TxHldReg(ch) •( char* ) ( Ox600000+ch) /• Write only •/■ 

^define RxHldReg(ch) *(char*)(0x600000+ch) /• Read only •/ 

/• Programming the NEC PD7201 for the SUN M68000 board: •/ 
/• Assumes External clock frequency 16 * baud rate •/ 

/• 

• Set a NEC uart control register; 

• ch == channel 

• r == register 0 

• v == value 
•/ 

//define NECset( ch , r , v) \ 

ContReg(ch)= (char)r;\ 
ContReg(ch) s (char)v 

/• 

• Reset External /Status Interrupts 
•/ 

redefine UART_RESXT( ch) ContReg(ch) = NECrexst 

extern char UARTInitSeq[]; 

redefine INITBEGIN &UARTIni tSeq[0] 

redefine INITENO &UARTIni tSeq[s izeof (UARTInitSeq)] 

/• 

• initialize both uarts; Aspeed and Bspeed are indices into 

• UARTSpeedTable[] 

m 

• It's not clear why this should be a macro (saves a few bytes) 
•/ 

^define I NITUART( Aspeed , Bspeed) {\ 
register char* p;\ 

TCSetGrp(T.IMAClk, TMODuart, TFRQuart) ;\ 
TCSetGrp(TIMBClk , TMODuart. TFRQuart) ;\ 
TCArmCnt(TSCountA + TSCountB);\ 
for (p = INITBEGIN; p < INITENO; ) {\ 

ContReg(A_chan) » *p;\ 

ContReg(B~chan) » *p++;\ 
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TxHldReg(A_chan) « '\0';\ 
TxHldReg(B_chan) - 'XO'jV 

} 

^define ReadUART(ch) RxHldReg(ch) 
^define UARTstat(ch) StatReg(ch) 
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/• 

* sunbug.h 

* Definitions for SunBug debugger 

* Jeffrey Mogul 30 March 1981 
•/ 

/• 

* Several Well-known Pup sockets should be defined in pupconstants . h; 

* these are SUNBUGSERVER. SUNBUGUSER, and SUNBOOTUSER. 
•/ 

^define SUNBUGSERVER 0500 
^define SUNBUGUSER 0501 
^define SUNBOOTUSER 0502 

/• 

* SunBug Pup types: 

* even types go from Server to User 

* odd types go from User to Server 
•/ 



#def i ne 


SUNBUG 


RETURN 


0200 


/• 


return from trap •/ 


#def i ne 


SUNBUG" 


'TRAP 


0201 


/• 


I trapped •/ 


0def i ne 


SUNBUG' 


"READMEM 


0202 


/• 


read memory •/ 


tfdef i ne 


SUNBUG* 


"rmack 


0203 


/• 


acks read memory •/ 


#def ine 


SUNBUG" 


'WRITEMEM 


0204 


/• 


write memory •/ 


#def ine 


SUNBUG" 


WMACK 


0205 


/* 


acks write memory •/ 


Idef i ne 


SUNBUG 


'READREG 


0206 


/• 


read register */ 


#def i ne 


SUNBUG" 


"rrack 


0207 


/• 


acks read register •/ 


#def ine 


SUNBUG" 


"WRITEREG 


0210 


/• 


write register •/ 


#def ine 


SUNBUG" 


"WRACK 


0211 


/• 


acks write register •/ 


#def i ne 


SUNBUG' 


'reset 


0212 


/• 


reset Sun •/ 


tfdef i ne 


SUNBUG" 


'ERROR 


0213 


/• 


error •/ 


#def i ne 


SUNBUG" 


BOOTYOURSELF 


0214 /• Force Bootload 


#def i ne 


SUNBUG" 


BOOTDONE 


0215 


/* 


Bootload is done •/ 



/• 

• Error codes for SUNBUG_ERROR 
•/ 

^define SBERR_BADCMD (-1) /• bad command •/ 
^define SBERR_RESET (-2) /* RESET done •/ 
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/• 

• sunemt.h 

• emulator trap definitions for the . MC68000 ROM monitor 

• Jeffrey Mogul a 22 May 1981 
•/ 

/• 

• Negative EMT type codes are reserved to supervisor mode 
•/ 

^define SUPERONLY(x) 

^define SU(x) (-(x)) 

"^define EMT_TICKS 
^define EMT_PUTCHAR 
^define EMTJ/ERSION 
^define EMT_GETCHAR 
^define EMT_GETMEMSIZE 
^define EMT_SETECHO 

^define EMT_SETSEGMAP 
^define EMT_GETSEGMAP 
tfdefine EMT_GETCONTEXT 
^define EMT SETCONTEXT 



((*) < 0) 



0 /• ticks() •/ 

1 /• putchar(x) */ 

2 /• version() •/ 

3 '/• getchar() •/ 

4 /* getmemsize •/ 

5 /• setecho(0/l) •/ 

SU(1) /• setsegmap(cxt , segno, entry) • 

SU(2) /• getsegmapj cxt , segno) •/ 

SU(3) /• getcontext() •/ 

SU(4) /• setcontext(x) •/ 



sunmon.h Mon Jul 20 23:37:19 1981 Page 1, line 1 



• sunmon.h 

• Header file for MC68000 ROM Monitor 

• Created: 

• Jeffrey Mogul - . * ■ 14 May 1981 

• out of the ashes of code originally written by Luis Trabb-Pardo 
•/ 

rfHfndef SUNMONDEFINED 
^define SUNMONDEFINED 

^include "buserr.h" 
^include "m68vectors .h" 

/• 

• Monitor version number: MAJVERSION.MINVERSION 

• (This could be in an automatically generated subfile?) 
•/ 

^define MAJVERSION 0 
^define MINVERSION 8 

/• 

• C language "improvements" 
•/ 

^define then 

^define true 1 

^define false 0 

^define loop for(;:) 

typedef int typroc(); /• change this •/ 

typedef short word; 

typedef long longword; 

typedef char byte; 

/• 

• Various memory layout parameters 
•/ 

^define INITSP 0x1000 /• initial stack pointer, for C •/ 

^define INITSPa 1000 /• for asm( ) use •/ 

^define USERCODE 0x1000 /• starting address for user programs •/ 

/• 

• RAM Refresh 

• The current hardware does not support the use of "User Interrupt 

• Vectors"; therefore, the RAM Refresh .routine starts where they 

• lie. 
•/ 

^define RAMREFR ( ( typroc* )EVEC_USERINT( 0) ) /* address of RAM 

• refresh routine 
•/ 

#ifdef TIRAM /• TI's rams are weird •/ 

^define RAMREFOPS 64 /• operations to do refresh •/ 
^define RAMREFTIME MS_1 /• time between refreshes •/ 
#e1se 

tfdefine RAMREFOPS 128 /* operations to do refresh •/ 
^define RAMREFTIME MS_2 /• time between refreshes •/ 
#endif TIRAM 
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/• 

. * STRTOATA is the starting address of monitor global data 
•/ 

^define STRTDATA ( ( ( ir.t)RAMREFR) ♦ (RAMREFOPS*sizeof ( short) ) ) 
/• 

* Size of line input buffer - this should be at least 80. 

* to leave room for a full-length S-record. 
•/ 

^define BUFSIZE 80 
/• 

* These are the "erase" and "kill" characters for 

* input processing; they can be changed. 
V 

^define CERASE1 'Xb' /• backspace •/ 
^define CERASE2 0x7F /• delete •/ 
^define CKILL '\025' /• -trl/U •/ 

/• 

* These are the default mode-changing characters 
•/ 

#define CENDTRANSP '\036' /• end transparent mode, ctrl/t •/ 

^define CSTLD '\V /• Start Load •/ 

^define UPCASE 0x5F /• mask to force upper case letters •/ 
^define NOPARITY 0x7F /* mask to strip off parity •/ 

/• 

* Exception cause codes 
• 

* necmon passes one of these to monitor() [in bmon] on special 

* exceptions. 

* These definitions get used in asmQ's and thus must not have 

* trailing tabs! (or more than one leading tab) 
•/ 

^define EXC_RESET 
^define EXC_AB0RT 
^define EXC_BREAK 
^define EXC__EXIT 
^define EXC_TRACE 
*def ine EXC_EMT 5 
^define EXC_BUSERR 
^define EXC ADRERR 



#endif SUNMONDEFINED 



/• Reset switch hit (or soft reset) 

/• Abort switch hit •/ 

/• Breakpoint trap taken •/ 

/• Exit trap taken •/ 

/• Trace trap taken •/ 

/• Emulator trap •/ 

/• Bus Error •/ 

/• Address Error •/ 



necmon.c 



Tue Aug 18 17:13:19 1981 



Page 1, line 1 



• necmon.c 

• "kernel* of monitor 

• present state due to Jeffrey Mogul 18 May 1981 

• version 2 (pc board) support added 19 May 1981 

• fixed bug in initialization (Bus Errors) 7 Aug 1981 



^include "sunmon.h" 
^include "asmdef.h" 
^include "globram. h" 
^include "necuart.h" 
iCinclude "timer. h" 
^include "pcmap.h" 
tfifdef FRAMEBUF 
^include "framebuf.h" 
#endif FRAMEBUF 

/• shorthand •/ 

#define excvmake(ptr , routine) {int routine(); *(ptr) * ( long) routine 

/• Exception Vector */ 

/* we need a "mini" exception vector in ROM, just to 
• get started. This MUST be the first data in the ROM! 
*/ 

excv(/INITSPa) ; /• excv( /INITSP) doesn't work here •/ 
excv( startmon) ; 



/* Exception Links •/ 


excl ink( 


interlO, I , I 


excl ink( 


interl4,Z,D 


excl i nk( 


interl8 t C,h 


excl ink( 


interlC.T.V 


excl ink( 


inter20,P,r 


excl ink( 


inter28,U,0 


excl ink( 


inter2C,U,l 


excl ink( 


interUN.U.n 


exclink( 


interLl.L.l 


excl ink( 


interL2,L.2 


excl ink( 


interL3,L,3 


excl ink( 


interL4,L,4 


excl ink( 


interL5,L,5 


excl ink( 


interL6,L,6 


excl ink( 


interTR.T, r 



label ( . enter) ; 

branch( interrupt) ; 



NECinseq; 
main( ) 

{ 

register char *p: 
register long *et; 
register GlobDes *gp; 
register long msize; 

label(REFRsrv); 

rpush(dO); 

TCClrOut(TIMRefresh); 
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RAMREFR(); 

RAMREFTIME » MS 2 ' 
GlobPtr->Ref rCnt~+= 2; 
/• RAMREFTIME « MS 1 V 
(GlobPtr->Ref rCnt)++; 



/• Abort switch - use GlobPtr->debounce to detect change of state •/ 
ABORTSWITCH 

if (StatReg(A)&NECsync) 

if (StatReg(A)&NECbreak) 
ABORTSWITCH 

GlobPtr->debounce ■ true; 
else if (GlobPtr->debounce) { /• changed state! •/ 
GlobPtr->debounce » false; 
NECresxt(A); 
rpop(dO); 

ExcCause(EXC_ABORT); 
goto ENTERmon; 

> 

rpop(dO) ; 
NECresxt(A); 
endsrv; 

1 abel ( startmon) ; 
{ 

/* FIRST! reset Timers, to avoid being interrupted •/ 
ResTIMER; 

/* Next, set up memory context and mapping */ 

INITMAP; /• this must be done to provide a stack 

• for subsequent calls (e.g., mapmem()) 

* also, leaves us in context 0 
•/ 

EXITBOOT; /* Exit boot state (allows memory reads from RAM) •/ 

excvmake( EVEC_BUSERR, BEcatch) ; /* ignore Bus Errors for now V 
msize = mapmem( )<<11 ; /* map the memory "right" •/ 

/* 

• Write all of memory in order to initialize parity bits. 

• This can't be a "clr", since that instruction reads(!) 

* before writing. The use of 0PC_2UN1 means that random 

* jumps will cause immediately "Ul" traps. 
•/ 

for.(et « 0; et < (long •)msize; ) *et++ » 0PC_2UN1; 
gp - GlobPtr; 

gp->MemorySize « msize; /• record for future reference V 
gp->CurContext = 0; /• ditto •/ 

#ifdef FRAME BUF 

/* determine presence of frame buffer - 

• this uses BEcatch which clears memory location #0 on 

* a bus error 
•/ 

excvmake(EVEC_BUSERR, BEcatch); /• catch Bus Errors •/ 
. *(long«)0 = 1; 

•(long*)GXUnitOBase a 0; /* touch frame buffer •/ 



#if 

jfelse 

ffendif 

jfifdef 
lelse 
#endif 



/ 
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lendif 



gp->FrameBuf f er ■ *(long*)0; 
FRAMEBUF 



initUART(p); 
initREFR; 

/• make all vectors "undefined" •/ 
for (et * EVEC_TRAPF ; et ;) 
excvmake(et-- , interUN) ; 



et = EVEC BUSERR; 



/• skip first two vectors •/ 



excvmake 
excvmake 
excvmake 
excvmake 
excvmake 
excvmake 
excvmake 
excvmake 
excvmake 
excvmake 

et = EVEC 
excvmake 
excvmake 
excvmake 
excvmake 
excvmake 
excvmake 
excvmake 
while (e 



et++,BusError) ; 
et++ , AddrError) ; 
et++, interlO) ; 
et++ , interl4) ; 
et++, interl8) ; 
et++, interlC) ; 
et++, inter20) ; 
et++,TraceTrap) ; 
et++ , inter28) ; 
et++, inter2C) ; 



LEVELl; 
et++, interLl) 
et++, intert2) 
et++. interL3) 
et++, interL4) 
et++ , interl_5) 
et++, interLS) 
et++,REFRsrv) 
<= EVEC_TRAPF ) 
excvmake(et++, interTR) ; 
excvmake(EVEC_TRAPl .TRAPbrek); 
excvmake( EVEC_TRAPE .TRAPexi t) ; 
excvmake( EVEC_TRAPF .TRAPemu) ; 



Create RAM Refresh subroutine - 

OPC_2NOP is a long coding two nops, 0PC_N0P_RTS is a long 
coding an nop followed by an rts. We fill all 
but the last long with OPC_2N0P, then tack on an OPCJiOP_RTS, 

for (et = (long*)RAMREFR; 

et < ( long* )( ( int)RAMREFR + ( (RAMREF0PS-2)*s izeof (short))) ; 
*(et++) = 0PC_2N0P); 
•et » OPC NOP RTS; 



GlobBase ■ GlobPtr; 
gp->debounce = false; 



#ifdef BREAKTRAP 

gp->BrkInPrg 
gp->BreakAdx 

#endif BREAKTRAP 

LabelGbl(SoftReset); 
rpush(#0. ) ; 
wpush( sr) ; 



0; 
0; 



/• store ptr to globals for users •/ 



/• no break in progress •/ 

/• initialize break address •/ 



ExcCause(EXC_RESET); 



/• jump here to do a soft reset •/ 

/• «p C H maybe should be something useful? •/ 

/• Fake Exception Stack •/ 
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ENTERmon : 

saveregs : 
setINTLV(7); 
moni tor( ) ; 
restregs ; 
endsrv; 



label(TRAPbrek); 

ExcCause(EXC_BREAK); 
goto ENTERmon; 

unusedl abel 1 : 
label (TRAPexit) ; 

ExcCause(EXC__EXIT); 

goto ENTERmon; 

unusedl abel 2 : 
label ( interrupt) ; 



unusedl abel 3 : 
label (TraceTrap) ; 

ExcCause(EXC_TRACE); 

goto ENTERmon; 

unusedl abel 4 : 
label (TRAPemu) ; 

ExcCause(EXC_EMT); 

goto ENTERmon; 

unusedl abel 5 : 
label (BusError) 

SAVEACCESS; 

ExcCause(EXC__BUSERR) ; 

goto ENTERmon; 

unusedl abel 6 : 
label (AddrError) 

SAVEACCESS: 

ExcCause( EXC_ ADRERR) ; 

goto ENTERmon; 

unusedlable7: 
label (BEcatch) 

FLUSHACCESS; 
#ifdef FRAMEBUF 

*(long«)0 ■ 0; 
tfendif FRAMEBUF 

endsrv; 

> . 



goto ENTERmon; 



/• save Error Access Address •/ 



/• save Error Access Address */ 



/* remove access address from stack 
/• signal that BE occured •/' 
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• bmon.c 

• 68K VERY BASIC MONITOR 
• 

• original author: Luis Trabb Pardo 

• largely re-written by Jeffrey Mogul April, 1981 ■ - • 
•/ 

^include "sunmon.h" 
^include "asmdef.h" 
^include "globram.h" 
^include "necuart.h" 
^include "statreg . h" 
^include "pcmap.h" 

^define isnum(c) ((c>='0' )&&(c<='9' )) 
/• 

• read the next input line into a global buffer 
•/ 

getl ine( ) 
{ 

register char *p = GlobPtr->l inbuf ; 
register int linelength = 0; 

register int erase; /• number of characters to erase •/ 

Gl obPtr->l ineptr = p; /• reset place-in-line pointer •/ 

while ( (*p = getchar()) l« 'Nr') { 
erase * 0; 

if (*p == CERASE1) { 

putchar( ' '); /* un-echo the \b */ 

erase s 1; /* erase one character •/ 

> 

else if (*p — CERASE2) <del> key •/ 

erase = 1; 
else if (*p = » CKILL) 

erase ■ linelength; /* erase all character on line •/ 
else if (linelength < BUFSIZE) { /• ok to accept chars 

P++: 

1 inelength++; 
/• here we could ding for line-too-long •/ 

> 

whi le( 1 inelength && erase--) { 
p— ; 

linelength — ; 
message("\b \b"); 

} 

*(++p)= '\0'; /• the ++ protects the \r to make getone() work •/ 
GlobPtr->l inesize « linelength; 



/ 
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/• 

• gets one character from the input buffer; returns are 

• converted to nulls 
•/ 

char getone() 
{ 

return ((•(GlobPtr->l ineptrJ^'Xr* )? 

•\(T : 

•((GlobPtr->lineptr)++)); 

} 

/• 

• indicates the next character that getone() would return; 

• does NOT convert \r to \0. 
•/ 

char peekchar() 

return(*(GlobPtr->1 ineptr)); 

} 

/• 

•Prints message mess on the controlling terminal. 
•/ 

message(mess) 
register char •mess; 

{ 

for( ;*mess!='\0' ; put char ( *(mess++) )) ; 

> 

char chardigs[] = ,, 0123456789ABCDEF• , ; 
/• 

• printhex prints rightmost <digs> hex digits of <val> 
•/ 

printhex ( val , digs) 
regi ster long val ; 
register int digs; 

{ 

register int i ; 

i ■ ( (--digs)&7)<<2; /• digs 0 => print 8 digits 

for (; i >« 0; 1—4) 

putchar( chard igs[( val >>i )&0xF]) ; 

} 

/• 

• prints a message, prints the 1 hex digits of v, prints a 

• ?, and reads a new line into the buffer. 
•/ 

queryval (m,v, 1 ) . 
char *m; • \*V . 

longword v; 

int 1 ; '* 
{ 

message(m); 
printhex( v , 1 ) ; 
message("? 
getl ine() ; 

} 
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/• 

• Returns the hex value of a char or -1 if the char is not hex 
•/ 

1nt Ishex(ch) 
char ch; 

{ 

register char c« ch; 

if (isnum(c)) then return(c- 1 0 1 ) ; 

if (c>=*a < &&c<= , f *) then return(c- 'a'+lO); 
if (c>*'A , &&c<= , F , ) then returnj c- * A •♦10) ; 
return(-l) ; 

} 

/• get one hex-coded byte •/ 

gethexbyte( ) 

{ 

register int v * 0; 

v - ishex(getone( ))<<4; 
return( v | ishex(getone( ) )) ; 

} 

/* get a hex number •/ 
1 ongword getnum( ) 

{ 

register longword v = 0; 
register int hexval ; 

while ((hexval* ishex(peekchar( )))>=0) { 
v= (v<<4)| hexval; 
getone( ) ; 

} 

return( v) ; 

> 



/• Display/change one memory or map item 
• returns true iff another item coming. 
V 

ope n i tern ( num. ad rs, digs , dsize) 

register int num; /• either address or map number •/ 

register word *adrs; /* object address •/ 
register int digs; /• digits in address or map number •/ 

int dsize; /• 1 ■■ byte, 2 = a short, 4 == long */ 

{ 

register char c; 

printhex(n urn, digs); 
if (dsize == 2) 

queryval(": w ,*adrs,4); 
else /• dsize ■■ 1 •/ 

queryval(": ,, ,*((char*)adrs),2); 
/* dsize = s 4 not implemented •/ 
c s peekchar(); 
if (ishex(c)>*0) { 

if (dsize « 2) 

•adrs a getnum(); 
else /• dsize "IV 

•((char *)adrs) ■ getnum(); 
/* dsize ". 4 not implemented */ 
return(l); 
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} 

else if (cl-'Xr') 
return(O) ; 



bmon.c Mon Jul 20 23:36:57 1981 Page 5, line 185 



/Cdefine SREC_DATA *2' /• Data-carrying S-record •/ 

^define SREC_TRAILER '8' /• Trailer S-record •/ 

/• 

* get an S-record. Returns character used for handshaking. 

* pcadx is set to address part of S-record for non-data records. 
•/ 

char getrecord(pcadx) 
longword *pcadx; 

register GlobDes *gp * GlobPtr; 
register int bytecount; 
register int x; 
register longword adx; 
char rtype; 
int w; 

short checksum; 
char *savptr; 

pr inthex(gp-> recount ,2) ; 

/• 

• Format of 'S' record: 

• S<type><countXaddressXdatum>. . . <datum><checksum> 

• digit byte 3bytes byte byte byte 
•/ 

rtype s getone(); 

if ( (rtype != SREC_OATA) && (rtype ! = SREC_TRAILER) ) 
return( ' T* ) ; 

bytecount - gethexby te( ) ; 
/• 

• checksum - 0; checksum ♦* bytecount 
•/ 

checksum = bytecount; 

/* check to see that the bytecount agrees with line length 
if ( (bytecount < 3) | | (gp->l inesize != (bytecount<<l)+4)) 
return( 'L'); 

/• accumulate address - 3 bytes •/ 
adx =0; 

for (w - 0; w++ < 3; ) { 

adx * (adx<<8)|(x » gethexby te( )) ; 
checksum +■ x; 
bytecount — ; 

} * . 

/• verify checksum •/ 

savptr = gp->lineptr; /• save line ptr for rescanning •/ 
for (x - bytecount; x > 0 ; x — ) 
checksum += gethexbyte( ) ; 

if ( (++checksum)&0xFF) 
return('K'); 
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/• checksum worked - now rescan input and read data •/ 
if (rtype == SRECJMTA) { 

gp->1ineptr * savptr; 

while (--bytecount) { /• predecrement to ignore checksum •/ 
•(char *)adx++ * (char)gethexbyte( ) ; 

} else *pcadx * adx; 

(gp->recount)++: 

#ifdef MORESPACE 

if ( ! (gp->recount&0x3)) 

busyouta( ' . ' ) ; /• let user know that good records are coming •/ 
#endif MORESPACE 

return( 'Y* ) ; 

> 

/* Register names •/ 
char _reg_nam[ ] = 

"D0\0Dl\0D2\0D3\0D4\0D5\0O6\OD7\0A0\OAl\OA2\OA3\0A4\0A5\0A6\0SS\0US\0SR\0PC"; 

openreg( r , radx) 
word r; 

longword *radx; 

/• Display reg r, get new value (if any) 

If right answer: increment r and repeat until last reg 

•/ 

{ 

register char c; 

r+=(getnum( )&OxF) ; /* only use last hex digit •/ 

radx+=r; 

for( ; r<=_reg_MX;r++ t radx++) { 

message(&_reg_nam[r+r+r]) ; * 

queryval(": ".*radx,8); 

c s peekchar(); 

if (ishex(c) >* 0) { 

if (r !* _reg_ss) /• You toucha SS. I breaka you face •/ 
•radx - getnum(); 

} 

else if (c I* '\r') break; 

> 

} 

doload( ) 

/• Sends the rest of the line to channel B, and 
enters load mode. To avoid a "shouting match" with 
the host, we don't echo until we see a CSTLD. 
•/ 

register GlobDes *gp = GlobPtr; 

setmode( ' B ' ) ; 

gp->EchoOn s 0; 

gp->linbuf[0] = (char)»\r'; 

message ( gp -> 1 inbuf ) ; 

gp->recount * 0; 

while (getchar() !* CSTLD); 

gp->Echo0n * 1; 

) 
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#ifdef BREAKTRAP 
dobreak( ) 

/• Sets up a break point •/ 

{ 

register GlobDes *gp ■ GlobPtr; 
register word *bp= gp->BreakAdx; 
register word *bpa; 

If (bp && ( !gp->BrkInPrg) && (*bp !« 0PCJRAP1)) 
/• oops? got bashed •/ 
bp * 0; 

queryval ( "Break: ( int)bp,B) ; 

if (peekcharOls'Xr') then { 

gp->BrkInPrg = 0; /• clear any pending BPT •/ 

bpa» (word* )getnum( ) ; 

if (bp) then *bp a gp->BreakVa1 ; 

gp->BreakVal - *bpa; 

if (bpa) then *bpa- OPCJRAPl; 

gp->BreakAdx= bpa; 



/• 

* TakeBreak - handle breakpoint trap 
•/ 

TakeBreak( pep) 

register long •pep; /* pointer to user's PC •/ 
{ 

register GlobDes *gp = GlobPtr; 
message( "XnBreak at "); 

•pep -■ 2; /• back up to broken word •/ 

printhex( *pcp ,6) ; 
putchar( '\n * ) ; 

gp->BrkInPrg++; /* remember that we are breaking •/ 

•( gp->BreakAdx) = gp->BreakVal ; /• restore old instruction 

> 

#endif BREAKTRAP 
/• 

• Sets terminal operation mode: A, B, or T 
•/ 

setmode(c) 
register char c; 

{ 

register GlobDes *gp ■ GlobPtr; 
register char former = gp->ConChan; 

gp->EchoOn - 1; 
if ( c== * A ' ) { 

gp->ConChan = A_chan; 

/• if already on channel A, don't putchar( ' \n' ) •/ 

if (former != Aj_chan) 
putchar( • \n ") ; 
} else if (c=='B') then { 

gp->ConChan » B_chan; 
} else if (c«'T') then { 

transparent( ) ; 

putchar( *\n* ); 

#ifdef MORESPACE 
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} else message( "Unknown mode\n"); 

#else 

}: 

*endif MORESPACE 
> 

/•#ifdef MORESPACE*/ 
#ifndef NETBOOT 
/• 

* give a little help 
•/ 

givehelp() 
{ 

message( "Commands : \nAn , On ,Mn - open A, D, or Map reg #n\n"); 
message("E a - examine word @a\nO a - examine byte §a\n"); 
message("6 [a] - go\nC - continue\nB - breakpoint^") ; 
message("R - open proc regs\nl T - transparent mode\n"); 
message("L <cmd> - download with <cmd>\nX - set escape\n"); 

> 

#endif NETBOOT 
/•*endif MORESPACE*/ 
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JHfdef NETBOOT 
^define MAXBOOTTRIES 5 
/• 

* get and setup a program via the network. Keeps trying 

* until it succeeds or MAXBOOTTRIES is exceeded. 
•/ 

netfetch(bf name) 
register char *bfname; 

{ 

register int bflen * -1; 
register int tries a 0; 

while ((bflen <* 0) && (tries < MAXBOOTTRIES)) { 
if (tries++) putchar( ' . ' ) ; 
bflen = getbootf ile(l,bfname,USERCODE,0); 

> 

if (bflen > 0) 

return(setup(USERCOOE, bflen)); 
else { 

message( "Timeout\n") ; 

return( 0) ; 



#endif NETBOOT 
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p_dO t r_dl, r_d2. r_d3. r_d4. r_d5, r_d6. r_d7. 
r_aO. r_al. r_a2 , r_a3. r_a4, r_a5, r__a6. 
p_ss. r us, r sr. r_pc) 
r_dl, r_d2, r_d3, r_d4. r_d5. r_d6. r_d7. 
r^al , r_a2, p_a3, r_a4, r_a5, p~a6, 
r~us , r~sp, p_pc; 

/• This mini-monitor does only a few things: 



a 


\octai oig> 


open A regs 


b 




set breakpoint 


C 


L<aodress> J 


continue [at <address>] 


A 
0 


s OC Lai O 1 y / 


open u regs 


e 


<hex number) 


open address (as word) 
netload file but don't start 


f 


<f i lename) 


9 


[<address>] 


start (call) [at <address>] 


h 




help 


i 


[A|B|T] 


terminal operation mode A,B or T 


k 




reset monitor stack 


1 


<UNIX cmd> 


get in LOAD mode 


m 


<hex number> 


open segment map 


n 


<f i1ename> 


netload file and start it 


0 


<hex number) 


open address (as byte) 


P 


<hex number) 


open page map 


r 




open PC , SR.SS ,US 


s 




load S-record 


X 


<char) 


set transparent-mode escape to <char) 



•/ 

{ 

register GlobDes *gp - GlobPtr; 
register char c; 
register int goadx; 

long cause; /* must NOT be in register */ 
int (*calladx)(); /• ditto •/ 

cause s r_sr>>16; 

if (cause != EXC_EMT) /• don't reset UART for EMT ! •/ 

setmode( 'A' ) ; /• revert to normal UART operation 

/* probably we should save mode and restore it later? •/ 

swi tch(cause) { /* what caused entry into monitor? */ 

case EXC_RESET: 

/• we define the name as a macro to cause the 
• version numbers to be substituted. 
•/ 

#ifdef NETBOOT 

^define IDENT(X.Y) "Sun Network Monitor. Version X.Y - Ox" 
lelse 

^define IDENT(X.Y) "Sun Monitor, Version X.Y - Ox" 
tfendif NETBOOT 

message ( IDE NT ( MAJ VERSION, MI NVERS ION)) ; 
printhex(gp-)MemorySize,5) ; 
message(" bytes of memory\n"); 

r_us * gp->MemorySize; /* reset User Stack pointer •/ 
gp-)EndTransp » CENDTRANSP; /• default escape •/ , 
break; 

case EXC_ABORT: 

inessage( "\nAbort"); 
goto PCPrint; 



moni tor( 



long r_dO, 
r_aO, 
r~ss. 
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case EXC_BREAK: 
XHfdef BREAKTRAP 

TakeBreak(&r_pc) ; 
break; 

#else 

message("BREAK\n"); 
break; 
#endif BREAKTRAP 

case EXC_EXIT: 
break; 

case EXC TRACE: 
dMfdef BREAKTRAP 

if (gp->BrkInPrg) { 

/• this is single step past broken instruction •/ 
r_sr &= ~SR_TRACE; 
gp->BrkInPrg * 0; 

™ ((*(gp->BreakAdx)) « gp->BreakVal ) { 
/• good - not bashed since we set it •/ 
*(gp->BreakAdx) * OPC TRAP1 ; /• reset break •/ 

} 

return; /• in either case, return to user code •/ 

#endif BREAKTRAP 

message( "\nTrace trap"); 
goto PCPrint; 

case EXC_EMT: /• emulator trap •/ 
#ifdef EMULATE 

r_dO ■ Emulate(&r_pc,r sr.r us); 
#else ~ ~ ~ 

r_dO = -1; /* return -1 if no emulator */ 

#endif EMULATE 

return; 

case EXC_BUSERR: 

message( "Bus") ; 
goto AccAddPrint; 

case EXC_ADRERR: 

message( "Address") ; 
AccAddPrint: message(" Error, addr: "); 

printhex(*(long*)(&(gp->BE.Data.AccAddrLo)),8); 
PCPrint: message(" at "); 

printhex(r _pc,6) ; 
putchar( ' \n' ); 
break; 

default: cause * r_sr&OxFFFF000O; 

message( "\nException : "); 

message((char *)&cause); /• high word of r sr is message 

putcharf '\n f ); 

break; 
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r_sr & a OxFFFF; /• clear extraneous high word •/ 

loop { 

message(">"); 
getl ine( ) ; 

while(c a getone()) 

1f (c >« *<)•) break; 

while (peekchar() «« * ') 

getone(); /* remove any spaces before argument •/ 

if (c ■ ■ 'NO*) continue; 

switch(c&UPCASE) { /• slight hack, force upper case •/ 

case 'A': /• open A register •/ 

openreg(_reg_aO,&r_dO) ; 
b re ak * 

#ifdef BREAKTRAP 

case *B': /• set breakpoint •/ 

dobreak( ) ; 
b re ak * 

#endif BREAKTRAP 

case 'C: /• Continue •/ 

if(goadx = getnum()) 
then r_pc - goadx; 

#ifdef BREAKTRAP 

else if (gp->BrkInPrg) { 

/• breakpoint trap taken •/ 

r_sr |= SR_TRACE; /• set trace trap •/ 

} 

#endif BREAKTRAP 

return; 

case 'D*: /* open D register •/ 

openreg(_reg_dO ,&r_dO) ; 
break; 

case ' E': /• open memory (short word) •/ 

for(goadx = getnum( )&0x0FFFFFE ; ;goadx+=2) 

if ( !openitem(goadx, (word *)goadx,6 ,2) ) break; 
break; 

#ifdef NETBOOT 

case 'F': /• fetch •/ 

gp->l inbuf [gp->l ines ize] » 0; 
r__pc ■ netfetch(gp->l ineptr) ; 
break; 

tfendif NETBOOT 

case 'G': /• Go •/ 

if ( !(«((long*)&calladx) » getnum())) 

*((long*)&cal ladx) = r _pc; 
calladx(); 
b reak * 

#ifdef MORESPACE 

case 'H': /• Help •/ 

#ifdef NETBOOT 

•((long*)&calladx) * netf etch( "monhelp2") ; 

if (calladx) calladx(); 

break; 

#else 

givehelp(); 

#endif NETBOOT 

break; 
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case 'I': /• change mode •/ 

setmode(getone( )&UPCASE); /• force upper case •/ 

break; 

case 'K' : /• reset stack •/ 

{extern int sp; 
sp « INITSP; 
branch(Sof tReset); 
} 

break; 

case 'L 1 : /• enter Load mode •/ 

do1oad(); 
break; 

case *M': /• open segment map entry •/ 

for (goadx » getnum( )&(C0NTEXTSIZE-1) ; 

goadx < CONTEXTSIZE ;goadx++) { 
message( "SegMap "); 

if ( !openitem(goadx,(word • )SEGMAPADR( goadx ) , 4 , 2) ) 
break; 

> 

break; 

#ifdef NETBOOT 

case ' N' : /• net-boot a file •/ 

gp->1 inbuf [gp->l inesize] ■ 0; 
*((long*)&calladx) * netfetch(gp->l ineptr) ; 
if (calladx) calladx(); 
break; 

tfendif NETBOOT 
#ifdef MORESPACE 

case *0': /• open memory (byte) •/ 

for(goadx = getnum( )&0x0FFFFFF; ;goadx++) 

if ( ! openi tem(goadx , (word *)goadx , 6 , 1 ) ) break; 
break ; 

#endif MORESPACE 

case 'P*: /• set page map •/ 

for (goadx = getnum( )&( PAGEMAPSIZE-1) ; 

goadx < PAGEMAPSIZE ;goadx++) { 
message( "PageMap "); 

if ( !openitem(goadx,(word*)PAGEMAPADR(goadx) ,4,2)) 
break; 

> 

break; 

0ifdef FIXME /• orphan! set context reg •/ 

setPID(getnum( )) ; 
break; 

#endif FIXME 

case 'R': /* open registers •/ 

openreg(_reg_ss,&r_dO) ; 
break; 

case '$': /• accept S record •/ 

putchar(getrecord(&r_pc)) ; 
break; 

#ifdef TESTFROB 

case *T*: /• test new frob •/ 

test(); 
b reak * 

*endif TESTFROB * 

case 'X': /• set transparent-mode escape •/ 

gp->EndTransp = getone(); 
break; 

default: 

message("What?\n"); 
break; 



/ 
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} /• end of switch •/ 
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• busyio.c 

• busywait I/O module 
• 

• Jeffrey Mogul 1 May 1981 
•/ 

^include "sunmon.h" 
^include "asmdef.h" 
^include "globram.h" 
^include "necuart.h" 

busyouta(x) 
register char x; 

{ 

while((char)(UARTstat(A)&NECtxrdy)"0); /• wait for ready •/ 
TxHldReg(A) • x; 

} 

busyoutb(x) 
register char x; 

{ 

while((cnar)(UARTstat(B)&NECtxrdy)==0) ; /• wait for ready •/ 
TxHldReg(B) = x; 

} 

putchar(x) 
register char x; 

{ 

register int (*outptr)(); 

if (Gl obPtr->ConChan =- A_chan) 
outptr = busyouta; 

el se 

outptr - busyoutb; 



outptr(x) ; 

X &= NOPARITY; 



/• strip parity bit •/ 



} 



if (x — '\r') outptr( •Xn'); 
if (x 'Nn') outptr( '\r'); 



char getchar() 



register char c; 
register long rp; 

rp * 0x600002 + GlobPtr->ConChan ; 

while (I( (•(char')rp) & NECrxrdy)); 
rp -» 2; 

C » (•(char*)rp)&NOPARITY; 

if (GlobPtr->EchoOn) 
putchar(c) ; 

return(c); 



/• rp -> control reg •/ 

/* busy wait for char •/ 

/• rp -> data reg •/ 

/• get char, strip parity 
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/• 

* transparent mode - cross connect UARTs A and B. 

* Since it 1s quite possible that the two UARTs are running 

* at different speeds, there is a potential flow control 

* problem here. We leave this up to the user to solve; 

* this routine runs at the speed of the slower side. 
•/ 

transparent) 
{ 

register char c; 

register int EscPending * 0; /• true if we just saw an escape •/ 
loop { 

/• move char from Host to here •/ 
if (UARTstat(B)&NECrxrdy) 
busyouta(Readl)ART(B)) ; 

/• has user typed a character? •/ 
if (UARTstat(A)&NECrxrdy) { • 

c = ReadUART(A); /• get the char •/ 

if (EscPending) 

if ((c&UPCASE) »« 'C') { 

break; /• esc-c: end transparent mode */ 

> 

else EscPending » 0; /• clear flag •/ 

else if ((c&NOPARITY)«(GlobPtr->EndTransp)) { 
EscPending++; 
continue; 

} 

busyoutb(c); /• send char to host •/ 
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• emulate. c 

• Emulator trap handler 
•/ 

#ifdef EMULATE 
^include "sunmon.h" 
^include "globram.h" 
^include "pcmap.h" 
^include "sunemt.h" 
^include "statreg . h" 

^define ARG_TRAPTYPE 0 /• position of trap type on arg list •/ 

^define ARG_ARG1 1 /• position of argument 1 •/ 

#def ine ARG__ARG2 2 /• position of argument 2 •/ 

^define ARG~ARG3 3 /• position of argument 3 •/ 

Emul ate( pcadr .usrsr .usrsp) 

register long *pcadr; /• address of saved pc */ 
register short usrsr; /• user's status register •/ 
register long *usrsp; /• user stack pointer •/ 

{ 



reg 
reg 
reg 
reg 



ster int traptype; 

ster int trapargl; 

ster int traparg2; 

ster int traparg3; 



register GlobOes *gp a GlobPtr; 

if (usrsr&SR_SUPERVISOR) { /• super-mode trap •/ 

usrsp ■ &(pcadr[l]); /• arguments follow saved pc */ 

} 

traptype * usrsp[ARG_TRAPTYPE]; 

trapargl * usrsp[ARG_ARGl] ; /* this might be a bug! suppose 



traparg2 = usrsp[ARG_ARG2]; 
traparg3 = usrsp[ARG_ARG3]; 



* traptype is at bottom of stack! 



/* Check if a user-mode trap is reserved to supervisor mode •/ 

if ( (SUPERONLY(traptype)) && ((usrsr&SRjSUPERVISOR) « 0) ) { 
/* nasty, nasty •/ 
return(-l); /• return failure •/ 

> 

switch (traptype) { 

case EMT_PUTCHAR: 

putchar( trapargl) ; 
break; 

case EMTJ/ERSION: 

return( (MAJVERSION*0xl00)+MINVERSION) ; 
break; 

case EMT_GETCHAR: 

return ( getchar( )) ; 
break; 

case EMT_SETECHO: 

gp->EchoOn = trapargl; 
return(O) ; 
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case EMT_SETSEGMAP: 

7* this must be done in registers since changing 

• the context may lose us our ram! 
•/ 

traptype ■ gp->CurContext ; /• remember current 

• context (traptj*i* 

• is free) •/ 

SETCONTEXT( trapargl); 
SETSEGMAP( traparg2, traparg3) ; 
SETCONTEXT( traptype): 
return(O) ; 
break; 

case EMT_GETSEGMAP: 

7* this must be done in registers since chcxgim} . ■.. 

• the context may lose us our ram! 
•/ 

traptype * gp->CurContext ; /• remember current 

• context (traptype 

• is free) •/ 

SETCONTEXT( trapargl); 

traparg3 - GETSEGMAP(traparg2) ; 

SETCONTEXT( traptype): 

return( traparg3) ; 

break; 

case EMT_GETCONTEXT : 

return(gp->CurContext) ; 
break; 

case EMT_SETCONTEXT: 

gp->CurContext * trapargl; 
SETCONTEXT( trapargl); 
return(O); 
break; 

case EMT_GETMEMSIZE : 

return(gp->MemorySize); 
break; 

case EMT__TICKS: 

return(gp->Ref rCnt) ; 

break; * . * ■ 

default: 

return(-l) ; 
break; 



#endif EMULATE 
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addql 


#l,d7 


L23* 




.L22: 




.L20: 




.L18: 


• 


.L24: 




tstl 


d7 


iea 


. L14 


movl 


d6,d0 


subql 


#l,d6 


tstl 


dO 




.L14 


subql 


#l,a5 


subql 


#l,d7 


.text 




movl 


#. t27,sp8 


ibsr 


message 


addql 


#4. so 


i ra 
j 


.L24 


.L25: 




.L14: 




jbsr 


getchar 


movb 


d0,a58 


cmpb 


#13, dO 


jne 


.L20000 


.L15: 




addql 


#l,a5 


clrb 


a58 


movl 


d7,606 
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64 


00 


0084 




.L12: 




65 


00 


0084 


4CEE 20C0 FFF4 


moveml 


a69(- Fl).#838 


66 


00 


008A 


4E5E 


"unlk 


a6 


67 


00 


008C 


4E75 


rts 




68 








Fl - 12 




69 








"SI ■ 8384 




70 








T Ml ■ 4 




71 


00 


008E 




.globl 


getone 


72 




getone: 


73 


00 


008E 


4E56 0000 


link 


a6,#- F2 


74 


00 


0092 


48EE 0000 0000 


moveml 


#_S2.a68(-_F2) 


75 








| A2 » 8 




76 


00 


0098 


2079 0000 025A 


movl 


602, aO 


77 


00 


009E 


OCIO 0000 


cmpb 


*13,a09 


78 


00 


00A2 


6604 


jne 


.L10000 


79 


00 


00A4 


4280 


clrl 


dO 


80 


00 


00A6 


6014 


jra 


.L29 


81 


00 


00A8 




.L10000: 




82 


00 


00A8 


2039 0000 025A 


movl 


602. dO 


83 


00 


00AE 


52B9 0000 025A 


addql 


#1,602 


84 


00 


0084 


2040 


movl 


dO.aO 


85 


00 


00B6 


1010 


movb 


a06.d0 


86 


00 


00B8 


4880 


extw 


dO 


87 


00 


OOBA 


48C0 


extl 


dO 


88 


00 


OOBC 




.L10001: 




89 


00 


OOBC 




.L29: 




90 


00 


OOBC 


4E5E 


unite 


a6 


91 


00 


OOBE 


4E75 


rts 




92 








F2 * 0 




93 








~S2 = 0 




94 








| M2 » 0 




95 








.text 




96 








.globl 


peekchar 


97 


00 


ooco 




peekchar: 




98 


00 


ooco 


4E56 0000 


link 


a6,#- F3 


99 


00 


00C4 


48EE 0000 0000 


moveml 


*_S3,a6Q(-_F3) 


100 








| A3 = 8 




101 


00 


OOCA 


2079 0000 025A 


movl 


602. aO 


102 


00 


OODO 


1010 


movb 


aOQ.dO 


103 


00 


00D2 




.L31: 




104 


00 


00D2 


4E5E 


unlk 


a6 


105 


00 


O0D4 


4E75 


rts 




106 








F3 = 0 




107 








S3 = 0 




108 








| M3 = 0 




109 








.text 




110 








.globl 


message 


111 


00 


00D6 




message : 




112 


00' 


00O6 


4E56 FFFC 


link 


a6.#- F4 


113 


00 


OODA 


48EE 2000 FFFC 


moveml 


# S4,a6G(- F4) 


114 


00 


OOEO 


2A6E 0008 


movl 


a68(8),a5 


115 








| A4 * 12 


116 


00 


00E4 




.L35: 




117 


00 


00E4 


4A15 


tstb 


a53 


118 


00 


00E6 


6712 


jeq 


.L32 


119 


00 


O0E8 




.L33: 




120 


00 


O0E8 


101D 


movb 


a58+,d0 


121 


00 


OOEA 


4880 


extw 


dO 


122 


00 


OOEC 


48C0 


extl 


dO 


123 


00 


OOEE 


2F00 


movl 


dO.spQ- 


124 


00 


OOFO 


4EB9 0000 0000 


7 jbsr 


putchar 


125 , 


00 


00F6 


588F 


addql 


*4.sp 


126 


00 


00F8 


60EA 


jra 


.L35 
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127 


00 


00FA 




.L34: 




128 


00 


OOFA 




.132: 




129 


00 


OOFA 


4CEE 2000 FFFC 


moveml 


a69(- F4),#8192 


130 


00 


0100 


4E5E 


unlk 


ad 


4 14 

131 


00 


0102 


4E75 


rts 




4 4 4 

13Z 








F4 ■ 4 




4 4 4 

133 








~S4 « 8192 




134 








T M4 - 4 




135 








.data 




136 


00 


08F8 




.globl 


chardigs 


137 




chardigs : 


138 


00 


08F8 


3031 


.word 


12337 


139 


00 


08FA 


3233 


.word 


12851 


140 


00 


08FC 


3435 


.word 


13365 


141 


00 


08FE 


3637 


.word 


13879 


142 


00 


0900 


3839 


.word 


14393 


143 


00 


0902 


4142 


.word 


16706 


144 


00 


0904 


4344 


.word 


17220 


145 


00 


0906 


4546 


.word 


17734 


146 


00 


0908 


0000 


.word 


0 


147 








.text 




148 








.globl 


printhex 


149 


00 


0104 




printhex : 




150 


00 


0104 


4E56 FFF4 


link 


a6,#- F5 


151 


00 


0108 


48EE OOEO FFF4 


moveml 


# S5,a6@(- F5) 


152 


00 


010E 


2E2E 0008 


movl 


a6@(8).d7 


153 


00 


0112 


2C2E OOOC 


movl 


a6@(12).d6 


154 








| A5 * 16 




155 


00 


0116 


5386 


subql 


#l.d6 


156 


00 


0118 


2006 


movl 


d6,d0 


157 


00 


011A 


0280 0000 0007 


andl 


*7.d0 


158 


00 


0120 


E580 


asll 


#2.d0 


159 


00 


0122 


2A00 


movl 


d0.d5 


160 


00 


0124 




.L41: 




161 


00 


0124 


4A85 


tstl 


d5 


162 


00 


0126 


6D26 


jit 


.L38 


163 


00 


0128 


2007 


movl 


d7.d0 


164 


00 


012A 


EAAO 


asrl 


d5.d0 


165 


00 


012C 


0280 0000 OOOF 


andl 


#15, dO 


166 


00 


0132 


0680 0000 08F8 


addl 


#chardigs.dO 


167 


00 


0138 


2040 


movl 


dO.aO 


168 


00 


013A 


1010 


movb 


aOd.dO 


169 


op 


013C 


4880 


extw 


dO 


170 


00 


013E 


48C0 


extl 


dO 


171 


00 


0140 


2F00 


movl 


dO ,sp8- 


172 


00 


0142 


4EB9 0000 0000 


7 jbsr 


putchar 


173 


00 


0148 


588F 


addql 


*4,sp 


174 


00 


014A 




.139: 




- 175 


00 


014A 


5985 


subql 


#4,d5 


176 


00 


014C 


6006 


jra 


.141 


177 


00 


014E 




.L40: 




178 


00 


014E 




.L38: 




179 


00 


014E 


4CEE OOEO FFF4 


moveml 


a69(- F5),#224 


180 


00 


0154 


4E5E 


unlk 


a6 


181 


00 


0156 


4E75 


rts 




182 








F5 « 12 




183 








S5 « 224 




184 








J M5 « 4 




185 








.text 




186 








.globl 


queryval 


187 


00 


0158 




queryval : 




188 


00 


0158 


4E56 0000 


link 


a6,#-_F6 


189 


00 


015C 


48EE 0000 0000 


moveml 


^Se.aeQC -_F6) 
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190 












| A6 - 20 
movl 




191 


00 


0162 


2F2E 


0008 




a68(8), spa- 


192 


00 


0166 


6100 


FF6E 




jbsr 


message 


193 


00 


016A 


588F 






addql 


*4,sp 


194 


00 


016C 


2F2E 


0010 




movl 


a68(16).sp8- 


195 


00 


0170 


2F2E 


OOOC 




movl 


a68(12),sp8- 


196 


00 


0174 


618E 






jbsr 


prlnthex 


197 


00 


0176 


508F 






addql 


#8,sp 


198 












.text 


199 


•oo 


0178 


2F3C 


0000 


09C8 


movl 


#.L44, spa- 


200 


00 


017E 


6100 


FF56 




jbsr 


message 


201 


00 


0182 


588F 






addql 


#4,sp 


202 


00 


0184 


6100 


FE7A 




jbsr 


getl ine 


203 


00 


0188 








.143: 


204 


00 


0188 


4E5E 






unlk 


a6 


205 


00 


018A 


4E75 






rts 




206 












F6 « 0 




207 












S6 « 0 




208 












| M6 » 8 




209 












.globl 


ishex 


210 


00 


018C 








ishex : 




211 


00 


018C 


4E56 


FFFC 




link 


a6,#- F7 


212 


00 


0190 


48EE 


0080 


FFFC 


moveml 


#_S7.a68(-J7) 


213 












| A7 * 12 




214 


00 


0196 


1E2E 


OOOB 




movb 


a68(ll).d7 


215 


00 


019A 


0C07 


0030 




cmpb 


#48, d7 


216 


00 


019E 


6014 






jit 


.L47 


217 


00 


01A0 


0C07 


0039 




cmpb 


#57, d7 


218 


00 


01A4 


6E0E 






jgt 


.L47 


219 


00 


01A6 


1007 






movb 


d7.d0 


220 


00 


01A8 


4880 






extw 


dO 


221 


00 


01AA 


48C0 






extl 


dO 


222 


00 


01AC 


0480 


0000 


0030 


subl 


#48. dO 


223 


00 


01B2 


6036 






jra 


.L46 


224 


00 


01B4 








.L47: 




225 


00 


01B4 


0C07 


0061 




cmpb 


#97. d7 


226 


00 


01B8 


6014 






ju 


.L48 


227 


00 


01BA 


0C07 


0066 




cmpb 


#102, d7 


228 


00 


01BE 


6E0E 






jgt 


.L48 


229 


00 


01C0 


1007 






movb 


d7.d0 


230 


00 


01C2 


4880 






extw 


dO 


231 


00 


01C4 


48C0 






extl. 


dO 


232 


00 


01C6 


0480 


0000 


0057 


subl 


#87, dO 


233 


00 


01CC 


601C 






jra 


.L46 


234 


00 


01CE 








.L48: 




235 


00 


01CE 


0C07 


0041 




cmpb 


#65, d7 


236 


00 


0102 


6014 






jit 


.L49 


237 


00 


0104 


0C07 


0046 




cmpb 


#70, d7 


238 


00 


01D8 


6E0E 






jgt 


.L49 


239 


00 


01OA 


1007 






movb 


d7,d0 


240 


00 


01OC 


4880 






extw 


dO 


241 


00 


01DE 


48C0 






extl 


dO 


242 


00 


01E0 


0480 


0000 


0037 


subl 


#55, dO 


243 


00 


01E6 


6002 






jra 


.L46 


244 


00 


01E8 








.L49: 




245 


00 


01E8 


70FF 






moveq 


#-l.dO 


246 


00 


01EA 






• 


.L46: 




247 


00 


01EA 


4CEE 


0080 


FFFC 


movemT 


a68(- F7),#128 


248 


00 


01F0 


4E5E 






unlk 


a6 


249 


00 


01F2 


4E75 






rts 




250 












F7 « 4 




251 












S7 * 128 




252 












| M7 = 0 
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253 










.text 




254 










. .globl 


gethexbyte 


255 


00 


01F4 






gethexbyte: 




256 


00 


01F4 


4E56 


FFFC 


link 


a6.#- F8 


i e t 

257 


00 


01F8 


48EE 


0080 FFFC 


moveml 


#_S8.a68(-_F8; 


258 










| A8 - 8 




259 


00 


01FE 


4287 




clrl 


d7 


260 


00 


0200 


6100 


FE8C 


jbsr 


getone 


261 


00 


0204 


4880 




extw 


dO 


262 


00 


0206 


48C0 




extl 


dO 


263 


00 


0208 


2F00 




movl 


d0 f sp0- 


264 


00 


020A 


6180 




jbsr 


Ishex 


265 


00 


020C 


688F 




addql 


*4,sp 


266 


00 


020E 


E980 




asll 


*4.d0 


267 


00 


0210 


2E00 




moyl 


d0,d7 


268 


00 


0212 


6100 


FE7A 


jbsr 


getone 


269 


00 


0216 


4860 




extw 


dO 


270 


00 


0218 


48C0 




extl 


dO 


271 


00 


021A 


2F00 


• 


movl 


d0,spO- 


272 


00 


021C 


6100 


FF6E 


jbsr 


ishex 


273 


00 


0220 


588F 




addql 


*4.sp 


274 


00 


0222 


8087 




orl 


d7.d0 


275 


00 


0224 






.L51: 




276 


00 


0224 


4CEE 


0080 FFFC 


moveml 


a6@(- F8).#12f 


277 


00 


022A 


4E5E 




unik 


a6 


278 


00 


022C 


4E75 




rts 




279 










F8 * 4 




280 










S8 * 128 




281 










| M8 = 4 




282 










. text 




283 










.globl 


getnum 


284 


00 


022E 






getnum: 




285 


00 


022E 


4E56 


FFF8 


1 ink 


a6.#- F9 


286 


00 


0232 


48EE 


00C0 FFF8 


moveml 


#_S9.a6@(-_F9) 


287 










| A9 * 8 




288 


00 


0238 


4287 




clrl 


d7 


289 


00 


023A 


600C 




jra 


.L54 


290 


00 


023C 






.L20003: 




291 


00 


023C 


2007 




movl 


d7 t d0 


292 


00 


023E 


E980 




asll 


*4,d0 


293 


00 


0240 


8086 




orl 


d6,d0 


294 


00 


0242 


2E00 




movl 


d0.d7 


295 


00 


0244 


6100 


FE48 


jbsr 


getone 


296 


00 


0248 






.L20002: 


297 


00 


0248 






.L54: 




298 


00 


0248 


6100 


FE76 


jbsr 


peekchar 


299 


00 


024C 


4880 




extw 


dO 


300 


00 


024E 


48C0 




extl 


dO 


301 


00* 


0250 


2F00 




movl 


dO.spQ- 


302 


00 


0252 


6100 


FF38 


jbsr 


ishex 


303 


00 


0256 


588F 




addql 


*4,sp 


304 


00 


0258 


2C00 




movl 


d0.d6 


305 


00 


025A 


6CE0 




jge 


.L20003 


306 


00 


025C 






.L55: 




307 


00 


025C 


2007 




movl 


d7,d0 


308 


00 


025E 






.153: 




309 


00 


025E 


4CEE 


00C0 FFF8 


moveml 


a68(- F9),*192 


310 


00 


0264 


4E5E 




unlk 


a6 


311 


00 


0266 


4E75 




rts 




312 










F9 * 8 




313 










"S9 » 192 




314, 










J M9 « 4 




315 










.text 
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4 1 e 
316 














.globl 


open item 


414 


A ft 

00 


ft 4 C 0 

OZoo 










open Hem: 




0 10 


n ft 
00 


ft 4 c a 

OZoo 


4E56 


r rr 0 






1 ink 


a6.#-_F10 


4 i ft 

319 


ft ft 

00 


AAA A 

026C 


48EE 


ft r ft 

20E0 


C C C ft 

FFFO 




moveml 


MS ft « ft _ ft ft / ft 4) 

510,ao8(-_Fl 


4 4ft 

320 


00 


fS ** "» ** 

0272 


2E2E 


ft ft ft A 

0008 






movl 


_ ft ft / ft V J *B 

a68(8) ,d7 


321 


is r\ 

00 


0276 


2A6E 


ft ft /% ift 

oooc 






movl 


_. ft ft / «* ft \ _ ft 

a68( 12) ,a6 


*» ** *% 

322 


ft ft 

00 


027A 


2C2E 


0010 






movl 


4» ft g M\ ft \ J ft 

a68(16) ,d6 


****** 

323 














| A10 ■ 24 

movl 


324 


00 


027E 


2F06 








d6.sp8- 


325 


00 


0280 


2F07 








movl 


d7.sp8- 


326 


00 


0282 


6100 


FE80 






jbsr 


printhex 


327 


00 


0286 


508F 








addql 


#8,sp 


328 


00 


0288 


0CAE 


0000 


0002 


0014 


cmpl 


#2,a68(20) 


329 


00 


0290 


6614 








jne 


.L58 


330 














. text 




331 


00 


0292 


2F3C 


0000 


0004 




movl 


#4,sp8- 


332 


00 


0298 


3015 








movw 


a58,d0 


333 


00 


029A 


48C0 








extl 


dO 


334 


00 


029C 


2F00 








movl 


dO. spQ- 


335 


00 


029E 


2F3C 


0000 


09CB 




movl 


#.L59.sp0- 


336 


00 


02A4 


6014 








j ra 


.L20005 


337 


00 


02A6 










. L58: 




338 


00 


02A6 


2F3C 


0000 


0002 




movl 


#2,sp8- 


339 


00 


02AC 


1015 








movb 


a58,d0 


340 


00 


02AE 


4880 








extw 


dO 


341 


00 


02B0 


48C0 








extl 


dO 


342 


00 


02B2 


2F00 








movl 


d0,sp8- 


343 


00 


02B4 


2F3C 


0000 


09CE 




movl 


#.L61,sp8- 


344 


00 


02BA 




* 






.L20005: 




345 


00 


02BA 


6100 


FE9C 






jbsr 


queryval 


346 


00 


02BE 










.L20004: 




347 


00 


02BE 


DFFC 


0000 


OOOC 




addl 


#12, sp 


348 


00 


02C4 










. L60 : 




349 


00 


02C4 


6100 


FDFA 






jbsr 


peekchar 


350 


00 


02C8 


1A00 








movb 


d0,d5 


351 


00 


02CA 


1005 








movb 


d5,d0 


352 


00 


02CC 


4880 








extw 


dO 


353 


00 


02CE 


48C0 








extl 


dO 


354 


00 


02D0 


2F00 








movl 


d0.sp8- 


355 


00 


02O2 


6100 


FEB8 






jbsr 


i shex 


356 


00 


0206 


588F 








addql 


#4 , sp 


357 


00 


02D8 


4A80 








tstl 


dO 


358 


00 


020A 


601C 








jit 


. L62 


359 


00 


020C 


0CAE 


0000 


0002 


0014 


cmpl 


ii ft _ ft ft / ft ft \ 

#2 ,a6@(20) 


360 


00 


02E4 


6608 








jne 


. L63 


361 


00 


02E6 


6100 


FF46 






jbsr 


getnum 


362 


00 


02EA 


3A80 








movw 


dO ,a58 


363 


00 


02EC 


6006 








jra 


. L64 


364 


00 


02EE 










. L63 : 




365 


00 


02EE 


6100 


FF3E 






jbsr 


getnum 


366 


00 


02F2 


1A80 








movb 


j ft _ ft ft 

dO ,a58 


367 


00 


02F4 










. L64 : 




368 


00 


02F4 


7001 








moveq 


wi , do 


369 


00 


02F6 


r> ft ft n 

6008 








jra 


• L07 


370 


00 


02F8 










. Luc : 




371 


00 


02F8 


0C05 


oooo 






cmpD 


#13. d5 


372 


00 


02FC 


6702 








jeq 


. Lot 


373 


00 


02FE 


4280 




. 




c i r 1 


Aft 

do 


374 


ft ft 

00 


0300 










. LOO . 




375 


00 


0300 










.L57: 


a68(- F1Q).#84 


376 
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631 


00 


0538 


2B7C 


0000 


0004 0082 


movl 


#4,a58(130) 


632 


00 


0540 


601A 






. Jra 


.L97 


633 


00 


0542 
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.L101: 




634 


00 


0542 


0C07 


0054 




cmpb 


#84. d7 


635 


00 


0546 


6614 






jne 


.L97 


636 


00 


0548 


4EB9 


0000 


0000 


7 jbsr 


transparent 


637 


00 


054E 








.L20011: 




638 


00 


0S4E 


2F3C 


0000 


000A 


movl 


#10,sp8- 


639 


00 


0554 








.L20010: 


640 


00 


0554 


4EB9 


0000 


0000 


7 jbsr 


putchar 


641 


00 


055A 








.L20009: 


642 


00 


055A 


588F 






addql 


#4,sp 


643 


00 


055C 








.L103: 


644 


00 


055C 






• 


.L102: 




645 


00 


055C 








.L100; 




646 


00 


055C 








.197: 




647 


00 


055C 


4CEE 


20C0 


FFF4 


moveml 
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648 


00 


0562 


4E5E 






unlk 


a6 


649 


00 


0564 


4E75 






rts 
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F14 » 12 




651 












"S14 = 8384 




652 
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653 












.text 




654 












.globl 


givehelp 
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00 
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00 
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4E56 


0000 




link 
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657 


00 


056A 


48EE 
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moveml 
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659 












. text 
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00 


0570 
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0000 
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movl 
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661 


00 
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FB5E 




jbsr 


message 


662 


00 


057A 


588F 






addql 


#4,sp 


663 


00 


057C 


2F3C 


0000 
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movl 


#.L108.sp8- 
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00 


0582 


6100 


FB52 




jbsr 


message 


665 


00 
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588F 






addql 
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00 
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2F3C 


0000 
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movl 
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00 
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message 
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00 
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588F 






addql 
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00 
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0000 
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movl 
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00 
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FB3A 
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message 
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00 
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588F 






addql 


#4,sp 
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00 
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0000 
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movl 
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00 
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6100 
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message 
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00 
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588F 






addql 
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00 


05AC 
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00 
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4E5E 






unlk 


a6 
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00 


05AE 


4E75 






rts 
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"S15 « 0 




680 












J M15 » 4 
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.globl 


monitor 
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00 


0580 








monitor: 
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00 


05B0 


4E56 


FFEC 




link 
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684 


00 


05B4 
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FFEC 


moveml 
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00 


05BA 
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movl 
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moveq 
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00 
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00 


05C8 
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00 
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cmpl 
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00 
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.L114 
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00 
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movl 
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694 


00 


05DA 


6100 


FF24 




jbsr 


setmode 


695 


00 


05DE 


588F 






addql 


#4.sp 


696 


00 


05E0 








.L114: 
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00 


05E0 


202E 


FFFC 




movl 
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00 


05E4 
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00 


05E4 
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0000 
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cmpl 
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00 
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jhl 


.L138 
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00 
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D040 






addw 
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00 


05F0 


O040 






addw 
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00 
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movl 
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00 
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movl 
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00 
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imp 
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00 
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.text 




708 


00 
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movl 
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00 
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jbsr 


message 
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00 
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588F 






addql 


#4,sp 


711 


00 


060A 


2F3C 


0000 


0005 


movl 


*5.sp0- 
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00 


0610 


2F2D 


0078 




movl 


a58(120).sp8- 
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00 
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6100 


FAEE 




jbsr 


printhex 


714 


00 


0618 


508F 






addql 
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715 


00 
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0000 


OACF 


movl 
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00 
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6100 


FAB4 




jbsr 


message 
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00 
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588F 






addql 
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00 
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movl 
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00 
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00 


063C 


6100 


FA98 




jbsr 


message 


725 


00 
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00 
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addql 
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00 
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00 
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00 
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00 
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00 
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00 
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00 
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00 
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00 
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movl 
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00 
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.L20013: 




748 


00 


067A 


6100 


FA5A 




jbsr 


message 


749 


00 


067E 








.L20012: 




750 


00 


067E 


588F 






addql 


. *4.sp 


751 


00 


0680 








.L131: 


#.L134,sp8- 


752 


00 


0680 


2F3C 


0000 


0B07 


movl 


753 


00 


0686 


6100 


FA4E 




jbsr 


message 


754 


00 


068A 


588F 






addql 


#4.sp 


755 


00 


068C 


2F3C 


0000 


0008 


movl 


#8.sp8- 
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00 


0692 


2F2D 
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movl 
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820 


00 


0726 


0280 


0000 


005F 


andl 


#95, dO 


821 


00 


072C 








.L150: 


822 


00 


072C 


0480 


0000 


0041 


subl 


#66, dO 


823 


00 


0732 


0C80 


0000 


0017 


cmpl 


#23. dO 


824 


00 


0738 


6200 


01A2 




Jh1 


.L181 


825 


00 


073C 


D040 






add* 


dO.dO 


826 


00 


073E 


0040 






add* 


dO.dO 


827 


00 


0740 


207C 


0000 


0964 


movl 


#.1183, aO 


828 


00 


0746 


2070 


0000 




movl 


a08(0,d0:w).a0 


829 


00 


074A 


4EO0 






jmp 


aoe 


830 


00 


074C 








.L20014: 




831 


00 


074C 


6100 


F940 




jbsr 


getone 


832 


00 


0750 


60C0 






jra 


.L146 


833 


00 


0752 








.L151: 




834 


00 


0752 


486E 


0008 




pea 


a68(8) 


835 


00 


0756 


2F3C 


0000 


0008 


movl 


#8.sp8- 


836 


00 


075C 








.L20022: 


837 


00 


075C 


6100 


FCAO 




jbsr 


openreg 


838 


00 


0760 






• 


.L20021: 


839 


00 


0760 


508F 






addql 


#8,sp 


640 


00 


0762 


6090 






jra 


.L141 


841 


00 


0764 








.L152: 




842 


00 


0764 


6100 


FAC8 




jbsr 


getnum 


843 


00 


0768 


2C00 






movl 


d0.d6 


844 


00 


076A 


6700 


0182 




jeq 


.L113 


845 


00 


076E 


2046 


0050 




movl 


d6.a6@(80) 


846 


00 


0772 








.L153: 


847 


00 


0772 


6000 


017A 




jra 


.L113 


848 


00 


0776 








.L154: 




849 


00 


0776 


486E 


0008 




pea 


a6@(8) 


850 


00 


077A 


2F3C 


0000 


0000 


movl 


#0.sp8- 


851 


00 


0780 


60DA 






jra 


.L20022 


852 


00 


0782 








.L155: 




853 


00 


0782 


6100 


FAAA 




jbsr 


getnum 


854 


00 


0786 


0280 


00FF 


FFFE 


andl 


#16777214. dO 


855 


00 


078C 


2C00 






movl 


d0.d6 


856 


00 


078E 


6002 






jra 


.L158 


857 


00 


0790 








.L159: 




858 


00 


0790 








.1156: 




859 


00 


0790 


5486 






addql 


#2.d6 


860 


00 


0792 








.L20015: 




861 


00 


0792 








.L158: 




862 


00 


0792 


2F3C 


0000 


0002 


movl 


#2.sp8- 


863 


00 


0798 


2F3C 


0000 


0006 


movl 


#6, spa- 


864 


00 


079E 


2F06 






movl 


de, spa- 


865 


00 


07A0 


2F06 






movl 


de, spe- 


866 


00 


07A2 


6100 


FAC4 




jbsr 


openi tern 


867 


00 


07A6 


DFFC 


0000 


0010 


addl 


#16, sp 


868 


00 


07AC 


4A80 






tstl 


dO 


869 


00 


07AE 


66E0 






jne 


.L156 


870 


00 


0760 








.L157: 




871 


00 


0780 


6000 


FF42 




jra 


.L141 


872 


00 


07B4 








.L160: 




873 


00 


0784 


6100 


FA78 




jbsr 


getnum 


874 


00 


07B8 


2040 


FFF8 




movl 


d0,a68(-8) 


875 


00 


07BC 


6606 






jne 


.L161 


876 


00 


07BE 


2P6E 


0050 


FFF8 


movl 


a66(80),a68(-8 


877 


00 


07C4 








.L161: 




878 


00 


07C4 


206E 


FFF8 




movl 


a68(-8) ,a0 


879 


00 


07C8 


4E90 






jbsr 


a08 


880 


00 


07CA 


6000 


FF28 




jra 


.L141 


881, 


00 


07CE 








.L162: 




882 


00 


07CE 


6100 


F8BE 




jbsr 


getone 
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757 


00 


0696 


6100 


FA6C 

• nvw 


JOai 


np int hat 


758 


00 

W V 


069A 


508F 




BOOq 1 


Af A a> n 
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00 


069C 

W W J s# 






1199* 
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760 


00 


OfiQT 
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c r 


0000 0R16 

U UU U UD 1 D 


HK) V 1 


AT 1 1 9.R tnB. 
w . LI JO • SpV 


761 

» w 1 


00 


OfiA? 
u un& 


6100 


FA32 


jDsr 


message 


762 

/ MC 


no 

u u 


ORAR 


ooo r 




a A Am 1 

addq i 


AfA • m 


76* 

/DO 


nn 
uu 


n « a a 

UDAO 


C T JL 


nnnn nnnA 
uuuu uuuo 


novl 


4fA > n O _ 

fo ; t spe- 


7RA 


UU 


ncAF 

UOnC 


9F9F 


nnftn 
uuou 


movl 


_ e a / on \ ^ _ a 

aov(8u) , spe- 


7fi1 


nn 

u u 


nfiR? 

UDD£ 


a 1 nn 


PARn 
r ao u 


josr 


printhex 


7fifi 
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UU 


U ODD 


ouor 




addqi 


0o ,sp 


7 A.7 
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nn 
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UODO 






1 *r> A A O A . 
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7RA 
/DO 


nn 

U U 


n RR A 
UODO 




nnnn nnnA 
UUUU UUUA 
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r t" f a 

FFFC 


subl 


#-4, dO 


ft r 

35 


A A 

00 


005A 


ft /-* ft ft 

0C80 


ft ft ft ft 

0000 


ft ft ft ft 

0009 


cmpl 


#9,d0 


ft ft 

36 


A A 

00 


0060 


62EA 






jhi 


■ A A A A A 

. L20000 


37 


A A 

00 


ft ft ft o 

0062 


0040 






addw 


JA J A 

dO ,d0 


ft #> 

38 


A A 

00 


/S ft ft J 

0064 


A A A 

0040 






addw 


j ft _4 ft 

dO ,d0 


ft r\ 

39 


A A 

00 


ft o ft ft 

0066 


ft ft T 

207C 


A A A A 

0000 


A 4 A A 

0124 


movl 


M 1 A A A A 

# . L30 , a0 


40 


ft ft 

00 


006C 


O ft 1 ft 

2070 


ft ft ft ft 

0000 




movl 


ft A (A t A J A . ... \ A 

a06( 0 , dO : w) , aO 


41 


ft ft 

00 


ft ft T ft 

0070 


4 r ftft 
4EU0 






jmp 


a ft A 

aois 


42 


ft ft 

00 


A A ^ A 

0072 








1 4 T . 

. L17 : 




M ft 

43 


A A 

00 


ft ft ^ ft 

0072 


nr AC 

2F05 






movl 


d5 , sp8- 


A A 

44 


ft ft 

00 


ft n "7 a 

0074 


iron 

4ld9 


ft ft ft ft 

0000 


0000 


7 JDSP 


putchar 


45 


A A 

00 


ft ft T » 

007A 


p n np 

588F 






addq i 


»4 , sp 


M ft 

46 


A A 

00 


ft ft T ft« 

007C 


ft ft ft ft 

6000 


A A A A 

009C 




jra 


14 4 

.L12 


47 


A A 

00 


A A O A 

0080 








1 4 ft • 

. Lis : 




48 


ft ft 

00 


n n a n 

0080 


T ft ft O 

7008 






moveq 


41 0 #4 ft 

no , 00 


49 


ft ft* 

00 


A A A A 

0082 


C ft ft ft 

6000 


ft ft ft c 

0096 




j ra 


. LIZ 


e n 
50 


ft ft 

00 


ft ft a c 

0086 








.LZU. 




C 4 

51 


ft ft 

00 


ft ft DC 

0086 


4co9 


0000 


ft ft ft ft 

0000 


7 jbsr 


getcnar 


5Z 


ft ft 

00 


n n a ft 
ODBC 


C ft ft ft 

6000 


ft n aft 
OOBL 




jra 


119 


Do 


nn 
UU 


ft ftQft 

0090 








199* 




54 


n ft 
00 


ft ft ft ft 
0090 


*> 1 A C 

Z 745 


ft ft DC 

OUoO 




movl 


<4C a 90/ 1 9A \ 


55 


nn 
00 


ft ftft A 

0094 








i ?nnn 1 • 

. Lc UUU k . 




c e 
50 


ft n 
00 


ft ft ft A 

0094 


ii o a ft 
4Z80 






ft! nl 


nn 
uu 


5/ 


ft ft 

00 


ft ft ft c 

0096 


C ft ft ft 

6U00 


ft ft O 9 

OOoZ 




i r Jt 

jra 


■ 1 19 


58 


A A 

00 


A A A A 

009A 












en 

oy 


nn 
OU 


ft ftft A 

U09A 


• 9f*9 A 

ZLZo 


UU /I 




ITlft W 1 


aOGf^ H4 / • uu 


60 


00 


009E 


2005 






movl 


d5.d0 


61 


00 


00A0 


720C 






moveq 


#12. dl 


62. 


00 


00A2 


E3A0 






asll 


dl.dO 


63 


00 


00A4 


33C0 


00E0 


0000 


movw 


dO. 14680064 
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64 


00 


00AA 


2004 






novl 


d4,d0 


65 


00 


OOAC 


720F 






noveq 


#15. dl 


66 


00 


OOAE 


E3A0 






asll 


dl.dO 


67 


00 


OOBO 


0680 


OOCO 


0000 


addl 


#12582912, dO 


68 


00 


00B6 


2040 






movl 


dO.aO 


69 


00 


00B8 


3083 






fflOVW 


d3,a09 


70 


00 


OOBA 


2006 






movl 


d6,d0 


71 


00 


OOBC 








.L20004: 


72 


00 


OOBC 


720C 






moveq 


#12, dl 


73 


00 


OOBE 








.L20003: 




74 


00 


OOBE 


E3A0 






asll 


dl.dO 


75 


00 


OOCO 








.L20002: 




76 


00 


OOCO 


33C0 


OOEO 


0000 


mow 


dO, 14680064 


77 


00 


00C6 


60CC 






i ra 


.L20001 


78 


00 


00C8 








.L24: 




79 


00 


00C8 


2C2B 


007C 




movl 


a36(124) ,d6 


80 


00 


OOCC 


2005 






movl 


dS.dO 


81 


00 


OOCE 


720C 






moveq 


#12, dl 


82 


00 


OODO 


E3A0 






asll 


dl.dO 


83 


00 


00D2 


33C0 


OOEO 


0000 


movw 


dO. 14680064 


84 


00 


00D8 


2004 






movl 


d4.d0 


85 


00 


OODA 


720F 






moveq 


#15, dl 


86 


00 


OODC 


E3A0 






asll 


dl.dO 


87 


00 


OOOE 


0680 


OOCO 


0000 


addl 


#12582912, dO 


88 


00 


00E4 


2040 






movl 


dO.aO. 


89 


00 


O0E6 


3010 






movw 


aOd, dO 


90 


00 


O0E8 


48C0 






extl 


dO 


91 


00 


OOEA 


2600 






movl 


d0,d3 


92 


00 


OOEC 


2006 






movl 


d6,d0 


93 


00 


OOEE 


720C 






moveq 


#12, dl 


94 


00 


OOFO 


E3A0 






asll 


dl.dO 


95 


00 


00F2 


33C0 


OOEO 


0000 


movw 


dO, 14680064 


96 


00 


00F8 


2003 






movl 


d3,d0 


97 


00 


OOFA 


60 IE 






i ra 


.L12 


98 


00 


OOFC 








.L25: 




99 


00 


OOFC 


202B 


007C 




movl 


a38(124) ,d0 


100 


00 


0100 


6018 






jra 


.L12 


101 


00 


0102 








.L26: 




102 


00 


0102 


2745 


007C 




movl 


d5.a39(124) 


103 


00 


0106 


2005 






movl 


d5.d0 


104 


00 


0108 


60B2 






jra 


.L20004 


105 


00 


010A 








.L27: 




106 


00 


010A 


202B 


0078 




movl 


a30(12O),dO 


107 


do 


010E 


600A 






jra 


.L12 


108 


00 


0110 








.L28: 




109 


00 


0110 


202B 


0074 




movl 


a3§(116).d0 


110 


00 


0114 


6004 






jra 


.L12 


111 


00 


0116 








.L29: 




112 


00 


0116 


6000 


FF34 




jra 


.L20000 


113 












.data 




114 


00 


0124 








.130: 




115 


00 


0124 


0000 


0102 




.long 


.L26 


116 


00 


0128 


0000 


OOFC 




.long 


.L25 


117 


00 


012C 


0000 


00C8 




.long 


.L24 


118 


00 


0130 


0000 


009A 




.long 


.L23 


119 


00 


0134 


0000 


0110 




.long 


.L28 


120 


00 


0138 


0000 


0072 




.long 


.L17 


121 


00 


013C 


0000 


0080 




.long 


.L19 


122 


00 


0140 


0000 


0086 




.long 


.L20 


123 


00 


0144 


0000 


010A 




.long 


.L27 


124 


00 


0148 


0000 


0090 




.long 


.L22 


125 












.text 




126 


00 


OUA 








.L15: . 
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127 00 011A 

128 00 011A 4CEE 38F8 FFEO 

129 00 0120 4E5E 

130 00 0122 4E75 
131 

132 
133 
134 

135 00 014C 



2 Error(s) and 0 Warning(s) 
0 Description of Error(s) 

7 Undefined symbol 



.L12: 

moveml a60(-_Fl) , #14 

unlk a8 

rts 
Fl ■ 32 
"SI ■ 14584 
J Ml ■ 4 

.data 

.end 



